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PREFACE 


This  annex  supplements  the  basic  report  "Simulation  Model  of 
a Highway  Maintenance  Operational  Unit." 

The  flow  charts  contained  herein  are  intended  as  a supplement 
to  the  more  functionally  oriented  charts  in  the  report.  These 
charts  are  at  a micro  level,  and  ccme  very  close  to  exhiting  a one- 
to-one  correspondence  between  the  computer  program  statement  and  a 
flow  chart  expression. 

The  notation  and  symbology  were  deliberately  kept  simple  in 
order  to  facilitate  correlation  between  the  computer  program  and 
the  flow  charts.  The  tables  included  show: 

Table  (1)  Program  Statement  Numbers  and  Corresponding  Connectors 
by  Page 

Table  (2)  Entry  and  Exit  Connectors  by  Page 

Table  (3)  Exit  Connector  Page  by  Corresponding  Entry  Connector 

Table  (4)  Statement  Numbers  by  Page 

Table  (5)  Computer  Printout 


Flow  Chart  Description 


Subroutines 

HZ  ONE  a Pages  SI  and  S2 

This  subroutine  is  entered  each  time  a new  job  is  encountered. 
Arguments  are  job  parameters,  highway,  and  zone  lists.  Calculations 
are  travel  times  and  control  parameters  for  the  job. 

RANK  6 Page  S3 

This  subroutine  is  used  to  rank  the  entries  within  an  array  in 
ascending  order.  Arguments  are  the  arrays  JRANK  § JUNK1  having  the 
same  dimension.  JRANK  (I)  = I and  JUNK1  is  the  array  on  which  the 
ranking  is  required.  Upon  exit  from  the  subroutine  JRANK (I)  contains 
the  rank  index  of  JUNK1 ( I ) . 

a Page  S4 

This  subroutine  checks  the  arrays  used  for  the  job  inventory  list 
and  finds  an  available  slot.  There  are  no  arguments  as  such;  however, 

the  last  job  which  has  been  removed  from  the  inventory  is  "remembered" 

unless  that  slot  has  been  used  subsequently.  Output  is  the  index  of 
a usable  slot.  This  subroutine  is  not  in  standard  FORTRAN  form. 

3 Page  S5 

This  subroutine  calls  HZONE  and  calculates  time  on  job.  This  is 
not  in  standard  FORTRAN  form. 

Initialization 

Pages  1-2 

This  section  reads  in  or  constructs  bookkeeping  type  parameters. 
Included  are  such  things  as  maximum  dimensions  for  lists,  holiday 

indices,  day  of  week  of  the  first  day  of  the  year,  number  of  days  in 

each  month  and  the  name  of  each  month. 

Input  - (All  input  sections  include  an  optional  print  back) 

Page  3 

This  section  reads  the  names  of  the  1-0  gates,  the  input  and  output 
gates  and  the  job  title,  number  available  and  hourly  cost  of  personnel  for 
each  job  category. 


1 


2 


Page  4 

This  section  reads  the  name,  serial  number,  number,  number 
available,  and  hourly  cost  for  each  type  of  equipment. 

Pages  5-6 

This  section  reads  parameters  belonging  to  each  job  type  including 
a description  of  each  basic  crew  which  can  work  at  this  job  type.  The 
nominal  hourly  cost  for  each  crew  is  calculated. 

The  variable  HCST(I)  is  the  nominal  hourly  cost  for  crew  I.  It 
is  the  sum  of  number  of  crew  members  of  each  labor  category  times  the 
hourly  cost  of  each  equipment  type  used  times  the  hourly  cost. 

HCST(I)  = IE01(I)  * CE1  + IE02  (I)  x CE2  + IE03 (I)  x CE3  + ILAB(I)  x CL 

+ z INO.  x EQC. 

l x l 

Nominal  cost  is  used  for  all  subsequent  rankings;  it  may  differ  slightly 
from  the  true  cost  since  no  labor  category  shifts  are  included. 

Pages  7-8 

This  section  reads  a list  of  highways  which  may  be  referenced  by 
highway  number  rather  than  zone  number.  For  each  such  highway,  the 
highway  number,  the  zones  through  which  it  passes  and  the  miles  per 
zone  are  read. 

Page  9 

This  section  reads  weather  data  and  constructs  a weather  table. 

Page  10 

This  section  reads  the  depot  to  zone  travel  time  for  each  zone. 

Page  11 

This  section  reads  recurring  or  periodic  jobs.  Several  one- time- 
only  initialization  functions  are  performed. 

XMULT  = (IESD(J)  - 365  + NTST  * IPER(J) )/IPER(J)) 

XMULT  is  a fudge  factor  used  as  a start-up  device.  Its  effect  is  to 
implement  the  assumption  that  each  recurring  job  encountered  on  day 
1 of  the  simulation  was  actually  discovered  on  the  earliest  starting 
day  for  this  job  type  in  the  preceding  year  plus  whatever  multiple  of 
the  period  is  required  to  get  the  starting  date  to  within  the  last 
period  of  the  preceding  year.  The  work  units  of  the  job  in  the  recurring 
file  are  replaced  as  the  job  is  put  into  the  job  inventory  by  the  work 
units  times  the  ratio  of  the  period  minus  the  number  of  days  of  the 


last  period  which  were  in  the  preceding  yearto  the  total  period.  This 
enables  the  beginning  date  of  each  recurring  job  to  be  independent 
of  the  simulation  starting  date  by  assuming  that  these  jobs  have 
been  discovered  some  time  in  the  preceding  year  during  the  last 
period  for  the  type.  Hence  the  work  units  from  the  recurring  pro- 
totype file  are  reduced  linearly  as  the  job  is  put  into  inventory 
to  compensate  for  that  portion  of  the  period  which  was  in  the 
preceding  year. 

Day  Initialization 

Pages  12-18 

This  section  clears  all  accumulated  daily  sums  of  costs,  worker  hours, 
etc.;  if  appropriate,  weekly  and  yearly  sums  are  cleared  also.  The 
current  simulation  day  is  examined  to  ascertain  the  day  of  the  week, 
holiday  status,  and  length  of  work  week;  these  are  used  to  preset  gates 
to  allow  for  reports,  weekly  planning,  and  to  establish  criteria  for 
determining  the  jobs  which  may  be  worked  on.  Regular  (read  in)  and 
recurring  jobs  are  put  into  the  job  inventory.  Weather  generated  jobs 
are  then  put  into  inventory. 

Weekly  Plan  Preparation 

Pages  19-26 

The  projected  work  for  the  week  is  calculated  and  reported. 

Estimates  are  based  on  full  work  days  with  no  allowance  for  emergency 
or  weather  generated  jobs. 

Page  23 

WPR  = VPR  * MULT/ (IVDL  - J8  + 1) 

L1  PROD*TOJ 
Page  25 

SLH(M,N)  = SLH(M,N)  + 

SE1H(M,N)=  SE1H(M,N)  + 

SE2H(M,N)  = SE2H(M,N)  + 

SE3H(M,N)  = SE3H(M,N)  + 

TCL(M,N)  = TCL(M,N)  + 

* CE3) 


Y * ILAB(L) 

Y * IE01(L) 

Y * IE02 (L) 

Y * IE03(L) 

Y * (ILAB(L)*  CL  + K1  * CE1  + K2  * CE2  + K3 


NDEQT(L5)  = NDEQT(L5)  - LI  * IN0(L4) 

EQH(M,N,L4)=  EQH(M,N,L5)  + IN0(L4)  * Y 
EQTOI  (M,N)  = EQTOL(M,N)  + INO(L4)  * Y * EQC(L5) 

Report  Print 

Pages  26-29 

The  weekly  plan  report,  and  daily,  weekly,  and  yearly  work  reports 
are  printed.  All  these  reports  have  essentially  the  same  format. 

Page  27 

Y = SLH(M,I)  + SE1H(M,I)  + SE2H(M,I)  + SE3H(M,I) 

Post  Report  Gating 
Page  30 

Depending  upon  which  report  has  just  been  printed,  the  appropriate 
bookkeeping  is  done  and  proper  control  transfers  are  set. 

Pre  Assignment  Processing 

Pages  31-33 

For  each  job  in  the  job  inventory,  an  indicator  is  set  to  show 
which  jobs  are  subject  to  normal  crew  assignment  procedures.  Those 
jobs  excluded  are  emergency  jobs,  weather  generated  jobs,  jobs  which 
have  a discovery  date  after  simulation  date,  and  jobs  which  are 
precluded  by  weather.  All  auxiliary  crews  are  released  and  IDELTA 
is  constructed. 

Crew  Assignment 

Page  33  - Daily  Inventory  Construction 

The  daily  inventory  construction  is  treated  as  a special  case 
of  inventory  updating;  hence,  this  sequence  maybe  reentered  after 
sane  crew  assignments  have  been  made. 

Pages  33-35  - Weather  Jobs 

Weather  generated  jobs  have  crews  assigned  in  this  section. 
Generally,  these  jobs  are  considered  to  be  sufficiently  large  to 
require  all  available  resources  so  that  assignment  is  constrained 
by  crews  available  rather  than  by  any  characteristics  of  the  job 
itself.  The  daily  resource  inventories  are  updated. 


SLH(M,J)  = SLH(M,J)  + X * X9 

SE1H(M,J)=  SE1H(M,J)  + X * XI 

SE2H(M,J) = SE2H(M,J)  + X * X2 

SE3H(M, J)=  SE3H(M,J)  + X * X3 

TCL(M,J)  = TCL (M,J)  + X * (X9  * CL  + XI  * CE1  + X2  * CE2  + X3  * CE3) 

EQH(M,J,J7)  = EQH(M,J,J7)  + X6  * X 

EQTOT(M,J)  = EQTOT(M,J)  + X * X6  * EQC(J7) 

Page  35  - Inventory  Update 

Daily  resource  inventories  are  updated  to  reflect  depletion  by 
weather  generated  jobs. 

Pages  35-36  - Peimanent  Crew  Feasibility 

This  section  verifies  that  there  are  adequate  resources  to 
fill  all  permanent  crew  assignments  which  have  been  madeprior  to  sim- 
ulation day  for  all  jobs  on  which  work  is  possible.  If  resources 

are  inadequate,  all  permanent  crew  assignments  are  canceled;  otherwise, 
permanent  assignments  are  confirmed  and  resource  inventories  are 
reduced  accordingly. 

Pages  36-40  - Normal  Crew  Assignment 

The  normal  assignment  procedures  are  used  to  assign  crews  made 
up  from  resource  inventories  to  jobs  other  than  weather  generated, 
emergency,  and  X type  jobs. 

Page  41  - JOB  X Inventory 

All  remaining  labor  resources  are  converted  to  man  hours  from 
man  days  and  tentatively  assigned  to  JOB  X. 

Pages  41-46,  53  - Emergency  Job  Assignment 

All  jobs  in  inventory  are  searched  to  locate  emergency  jobs. 
Assignments  to  these  jobs  are  made  in  preferential  order  from  JOB  X, 
from  among  auxiliary  crews,  or  frcm  permanent  crews.  Within  each 
category  of  assigned  crew,  choice  is  made  by  favoring  the  last  crew 
assigned  to  a job. 

Pages  41-42  - From  JOB  X 

Work  units,  costs,  labor  hours,  and  equipment  hours  are 
accumulated  for  those  emergency  jobs  which  can  be  accomplished  by 
JOB  X resources. 


TCL  (M , 1)  = TIME  * (Y  * CL  + XI  * CE1  +X2  * CE2  + X3  * CE3)  + 

TCL(M,1) 

EQH(M,1,K3)  = EQH(M,1,K3)  + INO(N)  * TIME 

EQTOT  (M , 1)  = EQTOT  (M , 1)  + INO(N)  * TIME  * EQCQC3) 

NDEQT (K3)  = NDEQT(K3)  - INO(N)  * TIMET 

Pages  42-44  - Frcm  Auxiliary  Crews 

Hie  closest  (in  travel  time)  auxiliary  crew  which  can  accomplish 
the  emergency  job  is  released  from  the  job  to  which  it  has  been 
assigned  and  assigned  to  JOB  X for  as  many  hours  as  are  required  to 
do  the  emergency  job.  Work  done,  costs,  etc.  done  on  the  job  to  which 
the  crew  was  originally  assigned  are  accumulated  for  that  fraction  of 
the  day  for  which  the  crew  remained  assigned.  (8  hours  - emergency 
job  time).  The  JOB  X emergency  assignment  section  is  reentered. 

Page  44 

(8  * ILAB(J5)  + DXL)  : (2  * TIME) 

(8  * (IE01(J5)+I  E02(J5)  + IE03(J5))  + DXE1  + DXE2  + DXE3)  : TIME 

Pages  45-46  - From  Permanent  Crews 

The  procedure  is  exactly  like  from  auxiliary  crews  above,  except 
selection  is  made  from  among  permanent  crews. 

Page  45 

Exactly  as  the  two  instructions  on  Page  44. 

Pages  46-52  - Summary  Creation 

All  costs,  labor  hours,  equipment  hours,  etc.,  which  appear  in 
the  reports  are  accumulated.  Surplus  capability  (fractional  crew 
days)  for  a job  which  is  completed  in  less  than  a full  day  is  put 
into  JOB  X or  credited  to  another  job  of  the  same  type.  Appropriate 
reports  are  printed,  the  simulation  day  is  advanced  and  the  day 
initialization  section  is  reentered. 


Table  1 


Program  Statement  Numbers  and  Corresponding  Connectors  by  Page 


Table  1 continued 


Table  1 continued 


Page  Statement  Connector  Other  Reference 


14 

- 

14 

13 

62 

- 

69 

70 

14A 

15,18 

71 

al 

440 

442 

- 

444 

- 

709 

- 

15 

63 

15 

14 

64 

Si 

72 

- 

630 

- 

631 

- 

16 

61 

_ 

80 

16 

15,14 

81 

a2 

84 

16B 

17 

175 

16A 

17 

301 

- 

304 

- 

704 

17 

82 

— 

83 

- 

302 

17 

16,14 

303 

- 

325 

17A 

Subroutine 

820 

- 

830 

- 

- 

Si 

3030 

18 

18 

16 

90 

_ 

91 

a 3 

92 

_ 

93 

a 4 

95 

_ 

96 

a 5 

840 

3090 

- 

3096 

- 

150 

Table  1 continued 


Page 

19 


20 


21 


22 


23 


24 


25 


26 


Statement 

Connector 

Other  Reference 

19 

18 

1024 

- 

2000 

- 

2021 

- 

2022 

- 

3020 

- 

3095 

- 

- 

Si 

1001 

20 

19 

1002 

- 

- 

20A 

21 

- 

20B 

21 

- 

20C 

21 

_ 

21 

20 

1003 

- 

1004 

- 

1015 

21A 

20 

22 

21 

1114 

- 

1116 

- 

2050 

22A 

26 

w. 

23 

22 

- 

23A 

25 

- 

23B 

25 

1005 

- 

1006 

- 

1007 

2 3D 

24 

1008 

24 

23 

1009 

- 

1010 

- 

1011 

- 

1012 

- 

1026 

'T 

1014 

25 

24 

1016 

1018 

25A 

23 

1020 

25B 

23 

_ 

26 

25 

773 

26A 

30,52 

1106 

- 

1112 

- 

3091 

“ 

Table  1 continued 


Page  Statement  Connector  Other  Reference 


27 

_ 

27 

26 

775 

- 

777 

- 

28 

- 

28 

27 

1044 

- 

29 

_ 

29 

28 

780 

- 

782 

- 

783 

- 

785 

7801 

- 

30 

766 

772 

30 

29,26,52 

774 

776 

1028 

1641 

7730 

31 

_ 

31A 

32 

105 

31 

18,35 

111 

112 

113 

452 

453 

1046 

32 

114 

32 

31 

115 

116 

117 

118 

119 

121 

122 

123 

32A 

31 

124 

32B 

31 

454 

32C 

31 

33 

110 

33A 

31,32 

139 

250 

33 

32,36 

450 

451 

Table  1 continued 


Page 

Statement 

Connector 

Other  Reference 

34 

- 

34 

33 

420 

422 

424 

426 

428 

430 

432 

34A 

35 

35 

_ 

35 

34 

106 

125 

126 

35A 

33 

141 

35E 

37 

172 

35D 

40 

176 

35C 

36 

177 

434 

436 

35B 

36 

36 

107 

129 

130 

131 

36 

35 

140 

157 

36A 

35 

161 

36B 

35 

37 

132 

133 
138 
144 

37 

36 

148 

37C 

38,39,40 

178 

37B 

40 

38 

142 

143 
145 
280 
285 

1452 

1454 

38 

37,36 

Table  1 continued 


Page  Statement  Connector  Other  Reference 


39 

146 

147 

39 

38,36 

162 

163 

164 
169 
180 

39A 

37 

40 

160 

40B 

37 

165 

168 

170 

40 

39 

171 

40C 

38 

179 

181 

275 

40A 

37 

41 

2004 

2006 

41 

40 

3006 

41A 

46 

42 

200 

201 

42 

41 

202 

42B 

53 

203 

204 

205 
2008 
2010 

42A 

41 

43 

- 

43 

42 

| 

43B 

44 

- 

43C 

44 

206 

207 

208 
221 

43A 

44,42 

44 

209 

44 

43 

210 

211 

44A 

43 

218 

44B 

43 
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Page  Statement  Connector  Other  Reference 


45 

214 

215 

216 
217 
220 
290 
318 

45 

44 

46 

_ 

46 

45 
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46B 

48 

- 

46  C 

48 

47 

222 

223 

1118 

1120 

1130 

650 

651 

652 

653 

760 

761 

46A 

41,42 

1122 

1124 

47 

46 

48 

48 

47 

762 

48A 

47 

763 

48B 

46 

1126 

48C 

51 

7611 

48D 

51 

49 

7600 

7601 

7602 
7604 
7620 

49 

48 

50 

7622 

7624 

50 

49 

Table  1 continued 


Page 

51 


52 


53 


Statement  Connector  Other  Reference 


2003 

7610 

7626 

20030 


51 
5 IB 
51A 


50 

48 

48,49 


770 

771 
1110 
2002 


52 

52A 


51 

33,51 


212 

213 

219 


53 


44,45 


Table  2 


Entry  and  Exit  Connectors  by  Page 


Page 

Entry 

Exit 

Page 

Entry 

Exit 

Page 

Entry 

Exit 

1 

START 

2 

17 

17 

16A 

31 

31 

32 

17A 

16B 

31A 

32A 

2 

2 

3 

32B 

3 

3 

18 

18 

14A 

32C 

3A 

4 

19 

33 

31 

4 

4 

5 

32 

32 

31A 

HALT 

19 

19 

20 

32A 

33 

32B 

33A 

5 

5 

6 

20 

20 

21 

32C 

5A 

7 

20A 

21A 

5B 

HALT 

20B 

33 

33 

34 

20C 

33A 

35A 

6 

6 

5A 

52A 

5B 

21 

21 

20A 

HALT (3) 

21A 

20B 

34 

34 

35 

20C 

34A 

7 

7 

8 

HALT  (2) 

22 

22 

23 

35 

35 

31 

22  A 

35A 

34A 

8 

8 

9 

35B 

36 

23 

23 

24 

35C 

36A 

9 

9 

10 

23A 

25A 

35D 

36B 

23B 

25B 

35E 

10 

10 

11 

23C 

2 3D 

36 

36 

33A 

11 

11 

12 

36A 

37 

HALT (2) 

24 

24 

2 3D 

36B 

38 

25 

39 

12 

12 

13 

12A 

25 

25 

23A 

37 

37 

35E 

25A 

23B 

37B 

39A 

13 

13 

14 

25B 

26 

37C 

40A 

40B 

14 

14 

15 

26 

26 

22  A 

14A 

16 

26A 

27 

38 

38 

37C 

17 

30 

40C 

15 

15 

14A 

27 

27 

28 

39 

39 

37C 

16 

39A 

40 

28 

28 

29 

16 

16 

17 

16A 

29 

29 

30 

16B 

30 

30 

12  A 

26  A 

Table  2 (continued) 

Entry  and  Exit  Connectors  by  Page 


Page 

Entry 

Exit  I 

40 

40 

35D 

40A 

37B 

40B 

37C 

40C 

41 

41 

41 

42 

41A 

46A 

42 

42 

43 

42A 

43A 

42B 

46A 

43 

43 

44 

43A 

44A 

43B 

44B 

43C 

44 

44 

43B 

44A 

43C 

44B 

45 

53 

45 

45 

46 

53 

46 

46 

4 1A 

46A 

47 

46B 

48B 

46C 

47 

47 

48 

48A 

48 

48 

46B 

48A 

46C 

48B 

49 

48C 

51A 

48D 

5 IB 

49 

49 

50 

51A 

50 

50 

51 

51 

51 

48C 

51A 

48D 

5 IB 

52 

52A 

Page 

52 

53 


Entry 

52 
52A 

53 


Exit 

26A 

30 

42B 


Table  3 


Exit  Connector  Page  by  Corresponding  Entry  Connector 


Connector 

Entered  From 

Connector 
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33 
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37B 

40 

23B 

25 

37C 

38,39,40 

7 

5 

2 3D 

24 

38 

36,37 

8 

7 

24 
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30 
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48-50 

51 

52 
53-57 

58 

61 

62 

63-64 

65 

69-71 

72 

80-81 

82-83 

84 

90-93 

95-96 

105 

106 
107 
110 

111-113 

114-119 

121-124 

125-126 

129-131 

132-133 


Statement  Numbers  by  Page 


Page 

3 

5 

6 
1 

7 

8 
9 
7 

10 

2 
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16 

18 
18 

31 
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33 
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32 
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157 
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Symbols  & Notation 


Exit  Connector-see  page  A 


Entrance  Connector 


Halt  or  start  indicator 


Decision  Box 

If  A is  less  than  B transfer  control  to  connector  1 
A is  greater  than  or  equal  to  B transfer  to  2 
Similar  notation  is  used  for  =,  ^ etc. 


Either  a line  of  print  or  a report 

B,C,  & D are  printed  according  to  format  A 


A 

B,C,D 


Input  Record 

B,C,  a D are  read  according  to  format  A 


I © I 
B = CxD 
E 

F — ► G 


Computation  Box-  begins  with  program  statement  A 
I is  replaced  by  I + l 
B is  replaced  by  CxD 

E is  calculated ; relation  is  too  long  to  fit  into  box  and  is  given  in  text 
F replaces  G 


Subroutine  call  indication 

Subroutine  A is  entered  and  control  is  returned  to  A, 


Variables  beginning  with  A-H  and  0-Z  are  real; 
those  beginning  with  I-N  are  integer 
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15 — ►lEQ 

(12) 

JUNKI(JW) 

IN0O2) 

HCST(II) 

12  © 1 

J2= J1  + 2 
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44 
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1 — J 


0-^WUC  (1.J) 
0— ► SLH  (I.J) 

0 — ► SE1H  (l,J) 

0 ->•  SE2H  (I.J) 

0 -►  SE3H  (I.J) 
0-»-  WUA  (I.J) 
0-*-  TCL  (I.J) 
0-^  TCE  (I.J) 
0-*-  EQT0T  (I.J) 
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I © 1 


703 
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O ►NSL 
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N0E1=MULTxNE1-NSE1 
NDE2=MULTXNE2  — NSE2 
NDE3=MULTxNE3-NSE3 
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00  1 UA 

1 ! * 

0Q1  06 

1 2* 

C**6* 

00  107 

1 3* 

00107 

18* 

00  1 07 

) 5* 

c***  * 

00  1 1 0 

H* 

00 1 1 n 

17* 

OQ44 1— 

1 8*  . 

00 1 1 1 

1 9* 

00 1 12  _ 

20* 

00112 

21* 

no  14  2 

22* 

00113 

23* 

00  1 13  - 

28* 

00113 

25* 

004  1“ 

26* 

. — - 

00119 

2 7* 

c * * * * 

-00  14  5 

28* 

00115 

29* 

noi  1 5 

3n* 

00115 

3 1* 

0O}16- 

32* 

no  l 1 6 

33* 

00116 

38* 

00116 

35* 

001  1 7 

36* 

00117 

37* 

00120 

38* 

00121 

39* 

00122 

8 p * 

00  123 

8 1 * 

001  23 

82* 

00)90 

83* 

00  1 53 

9 q * 

00  158 

85* 

00(55 

86* 

00  1 60 

87* 

00  163 

88* 

8 1 0 

00  166 

89* 

00  1 7 l 

50* 

00)72 

5)  • 

800 

00179 

52* 

00)75 

53* 

00176 

58* 

0020  1 

5s* 

00202 

5 6 * 

1 6 

00208 

57* 

002  1 3 

58* 

002  18 

5 <5  * 

00228 

60* 

00232 

6 l * 

00280 

62* 

0 0 2 8 1 

63* 

00289 

68* 

00286 

65* 

85 

- 00250 

<>6* 

65 

00256 

67* 

-45025  7 — 

— 66* — 



1 D T E ( 150)  , J R A N K ( 150)  , I V N Z { 150) 


182 
-2.0  Q 


DIMENSION  MON ( ! 2 ) , I DM ( I 2 ) , JUNK2 ( 3 , JUNK ( 3 l J ,KON ( 1 0 ) ,NHOL( 1 2)  , 

1 I W ( 3 7 0 ) ,Dl/VEEK(7)  , HE  1 ( 2.0  l-»  H E 2 ( 2 0 .L+XJUNK  U-1D4 


201 
-2.Q 2- 


0  I MENS  I ON  H 0 L4  3 6 )-»  I G A T E X 3.6  ) , 10  U T ( 3.6  ) 

EQUIPMENT  INVENTORY  in  depot 

DIMENSION..  I E Q I ( 25  4-,  4X01404.2.54 » E Q-C4-254  ^MDEQJ-125-l...LSE  Q < 25  ) 

JOB  TYPE 

DIME  NS  I C-N  I T T-Y  P-4  JO  ) * I-W  A ( 3 0 ) -»  l W B (-34) ) , I #£-4-3-04  ^ l # 04-304  *4ES  04404-* 

1  I LD ( 30)  ,SUT(30)  i I CRS ( 30 ) , I CRN ( 30 ) ,HT1  (30)  ,HTf(30) 

&A-S4C-CREWS  


220 
- 222  . 

230 
-23 1 


280 

-2314- 


DIMENSION  PR0Dm0),IE01(110),IE02m0),IE03(ll0),II.AB(U0)  ,'HCST  ( 1 

110)  tHCOST4-44M4-r^0S4  444U-r4EQ44-l4.4&) — 

» • I X 5 E * • BASIC  CREW  EQUIPMENT 
DIMENSION  I ED  ( 2504,  I-N04  2-5-0 1 


2 8 2 
250. 
25  1 
252 


0 1 MENS  I ON  j RTY-P4  60  ) -, 4 R M T ( 8 O R P R 480  4,4 RL C(  *0  ) R 53  4*0  4 . I R N Z <804, 

1 IRMIN(8O),lRMAX(6O),lRDL(BO),IS<8O),IRPER(0O),IRNT<eO)  ,XMUUT{80)  , 

2 4 PER480-)-,  4 RTPE  (-804 

INVENTORY 

dimens  4 ON-TV  TYPU6B)  TJ  VMT  < 1 50 ) ^4  V Ml  N44  504 , 4VWAX44504-*44AD4rU*CM-*43U4_ 

1 T(  150  ) , INDX  ( I 50  ) , ICREWK  150,6  ) » 1ETC  U50  ) . IDELTA  ( 150  ) ,TOJ(  150)  , 

2 1 MDEX  ( 1 504-»WPR  (4  50  UDPR  ( J 50  ) *COST  C 1 544)  ,XJUNK  (4  504 

‘•MULTIPLE  DIMENSIONS** 

D I MEW54  ON.  SLH(3*30)  , SE4H  ( 3,3  0 4 , 5-E2  W 43r  4 0 4,-S  E 1H  < 3-r-304  , 

1 W U P ( 3 , 3 0 ) ,TCLl3,30)  , T C E ( 3 , 3 0 ) ,EQTOT(3,30)  ,EQH(3, 30*25) 

DIMENSION  XJL43) ,XJEI (3) ,XjE2(34 ,XJE3(3) r»uC(3»30i  - 

EQUIVALENCE  <IRPER,IPER),(IRTYP,IRTP£),<INDX,INDEX),(HCST,HC0ST) 

ieull.o  - ■ - 

READ  905  <IflXRMtlX5MlIX5CM,lX5EM,IX6MlIX6ZM,IX8M,lX9M,INVMAX, 

4-  I YEAR  ! - - 

PRINT  931  ( I X9M , I X5M  , I X5CM  , I X5EM  , I X6M  , I X6ZM  , I X8M  , I X9M  , INVMAX  ) 

IWEEK*0  • 

J I N X = 0 

00  810  I « 1 , I N V M A X - - • 

DO  9 10  J*  1 , 6 

1 C R E *( l *.  J 1 * 0 

DO  800  I * I , ! N V M A X 

CPR(I)a.  000001  - - - 


1X10=1 
KOM ( 1 0 ) * l 

DO  16  I ■ 1. * 9 „ 

.4*10-1 

KON(j)«B*KON(J*l) 

READ  905  J , ( NHOL ( I ) , I -1  , 1 2 » 

I HOL ■ 1 

read  909  I CLR  , ISDAY  , ( DY/EEK  ( I ) , 1*1  ,7  ) 

READ  900  (MQ NCI),  1*1  ,.12 1..  ..  

READ  90 1 ( IDM ( I ) , I* 1 , J 2) 

K *0 

DO  85  1*1,12 

IF  (NWOL U ) .EQ.999)  GO  TO  65 
K ■ K + 1 

PRINT  932  ( NHOL  ( I) -»  J-*l~,K4-  - 

MULT.5- I SOA Y 

I F ( M U4  T * LT  .0-4—  MULXmO 


8900 
. 500CL 
5100 
-5200— 
5300 
-5MQQ— 


5500 
5504 
5502 
- 5503  - 
5508 
5 SOS 


5510 

5545 


PAGE  l 


0026  1 

69* 

00262 

70* 

00263 

7 1 • 

00269 

.72* 

00272 

73* 

.00300  _ 

_ 79* 

00302 

75* 

0031  1 

76* 

00313 

77* 

nrvr* ! 

7 ft-*- 

00323 

79* 

-00332 

— 80* 

0033** 

01* 

nrv»*4T 

42* 

00352 

83* 

nn  ) a j 

00370 

8§* 

-047377  — 

a a ft 

0090  l 

87* 

nno03 

. -BA* 

00905 

89* 

f)0  q 0 7 

90*- 

00915 

*1* 

00  9 2-3 

’2* 

00931 

93* 

fllUtAI 

-7-9JL  __ 

00995 

9§* 

009  97 

-94* 

00952 

97* 

00452.  . 

98* 

00961 

99  • 

-Dfl-9  4A_- 

-100*  _... 

00965 

1 0 1 • 

0 Q-9  6 7 

LO-2*. 

00*70 

10  3* 

.00.9  7.2 

1 0 9 • 

00975 

1 05* 

JJQiOg. 106* 

005  1 0 

107* 

-Q05.L2 

1Q.8* 

00519 

109* 

005  L7 

i >o*— 

0051  7 

in* 

00520 

1 17* 

00520 

113* 

-0.Q52J 

119* 

00521 

1 15* 

005.22- 

114*  _ _ 

00522 

1 17* 

00536 

lift* 

00537 

J 1 9* 

-005-9-L- 

120* 

00592 

121* 

00592  ... 

12  2*- 

00S**9 

123* 

00596 

-L2-9*  . 

00596 

1 25* 

nmult-mult 
.1102  !1«0 

I OUT ( 1 ) ■ 1 

READ  900  (MOL ( I 1 * I * L, 36  > 

1 READ  901  ( IGATE1  !),!■!  ,36) 

__  IE  I 1 0UTI1_Lj.lt.,  U GO  TO  2 

PRINT  950  (HOLM)  , ( IGATE(I)  ,1-1  ,36)  ) 

2JF  ( 1 GATE  ( 2 ) . L T . M GO  T0_3 

READ  90  1 (I  OUT ( 1 ) , I«  1 , 36 ) 

3 IE  < i pUT ( 2 ) »LT. 1 ) GO  TO  96 

PRINT  950  (HOL (2)  , ( IOUT(  I ) , I«J  ,36)  ) 
46— IE  LIGATXiiULTVU  GO  JO  9 7 

READ  906  HE  1 ( 1 ) ,HE2(  1 ) , I ,NE  ,CE 
-READ-  906  »EM2),HE245)^I  vNEl^CEl 

READ  906  HE  1 ( 3 ) ,HE2  ( 3)  , ! ,\'F2  ,CE2 

RE  AO -9  06  - HE  } ( 9 ) ,-ME  2 ( 9 ) , I ,«jE  3 , CE  3 

READ  906  HE1  (5)  ,HE2(5)  ,1  ,NL,CL 
97  IS  ( t -OUT  (3  > ,-LT,  1 ) GO  TO  «fl 


IS  ( J-04JT  I 3 ) ,-LT,  1 ) 
PRINT  979 

..  9 6-3  . 

975 
928 
928 
928 
928 


_ PR.LUT 
PRINT 
- PRINT 
PRINT 
PRINT 
PRINT 


1 HE  1(1)  , HE 2 ( 1 ) ,NF  »CE  ) 

< HE  1 ( 2 ) , HE2 ( 2 ) ,NE 1 ,CE  1 ) 

( HE  1 (3)  , HE  2 ( 3 ) ,.NE2,CE2> 

(HE1  (9)  ,HE2(9)  ,NP3,CE3) 

P B-LNT-  _9 28  HE  M5J, H_E2  ( 5J  ,_NL  , CL ) . 

98  IE  ( I GATE ( 9 ) ,LT,  1 ) GO  TO  99 
00-52  I»1,JX9M 

READ  906  (HE1  ( I ) ,HE2( I ) , IESI  ( I ) , IEONO ( I ) ,EOC  ( I ) ) 

C MAXIMUM  EQU1PH£NT  INVENTORY 

IE  ( I EQ  I ( I ) , E 0 * 9 9 9 ) 60  TO  99 

52_I  X-9  «X-.  . ....  _ 

PRINT  929 
STOP 

99  IE  ( I OUT (9)  ,LT. 1 ) GO  TO  9 
PRINT_  950  (HOL(**.l) 

00  50  I ■ I ,1X9 

PRINT -?2-6..(HEl.LLl,HE2(  I ) ,1  ,IEQl  ( U ,IEQNO(  I ) ,EQC(1J  L_ 

50  CONTINUE 


9.  IE  ( IG*TE(5)  .LT.ll 

IE  ( I OU  T ( 5 ) ,EQ.  1 ) 

1*1 

C JOB  TYPE  INDEX 

! 1*1 — . 

C CREW  TYPF  index  OVER  ALL 

_ -I  2*  1 

C EQUIPMENT  type  index 


GO  TO 
PRINT 


20 

933 


NOT  WJTHIN  JOB 


L_  C 


lire 

5 RE  *D  . 90  2.  ( ITTYPM  ) , I WA  ( I ) , IWB  ( I ) , I*C  M ) , I *0(  I ) , IESO(  I ) . ILD  ( I ) ,SUT  L 
1 I ) ,HT1  ( I ) ,HT2( I ) ) 

LCfiSXLLs.1 1 - - 

IE  ( ITTYP(  I ) .EQ.9999)  GO  TO  20 
_I  X5  * I 

I E ( I , GT . I X 5 M ) GO  TO  9200 

.MAXIMUM  JOB  TYPES.  _ . 

IE  ( I 0 U T ( 5 ) ,LT.  1 ) GO  TO  6 

PRI  NT  .5  5.1  . t-KT  1 ( U ,HJ2<.I  ) , I TJJP  M)  , I , I W A ( 11  * L«B  U ) ,4  WC  ( LJ  ,lWO-(  1 1+I  E 

1 SD  ( I ) , I L 0 ( I ) , 5 t-l T { I ) , I c R S ( I ) ) 

PRINT  9 52  . ...  -------  


5520 
_5  5 35.. 
5600 
5700 
5800 
.5900 
6000 
6 100 
6200 
6300 
6900 
6SQ0 
6600 

— 6701] 

6 8 0 0 
6900- 
7000 
7100 
7110 
-712LQ 
7130 
7200 
72  1 0 
7220 
7230 

-7JL9L0 

7300 
.7900 
7500 
7600 
7700 
..  7800  _ 
7810 
7820 
7900 
8000 
8 1 00 
__8_20Q 
8300 
8900 
89  10 
8500 
8600 
-.8700 
8800 
8900 
9000 
.9  1.0  0. 
9200 

9900 
9500 
95  1 0 
9600 
9700 
..  980Q  _ 
9900 
l DO  00- 


page 


7 


00566 

1 27* 

-005.66 

L2ft* 

D 0 5 6 7 

129* 

—00567 

130* 

00567 

I3|* 

.00645 

132* 

006  1 6 

133* 

-0064  7 — 

.13  4* 

00620 

1 35* 

00620—  . 

13  6* 

00622 

1 37* 

-00  6 23 

4.3  fl* 

00624 

136* 

0 0 6-2.7  . 

4 40  * 

0063  1 

141* 

00633  — 

142* 

00634 

I43* 

-00635 

4 94* 

00637 

145* 

00692-  - 

1-4  6-* 

00693 

147* 

00695 

4 9** 

00697 

1 49  + 

00650. 

150* 

0065  1 

151* 

00652  ... 

15?* 

00653 

153* 

00653 

154* 

00659 

155* 

00656  

LS6* 

00660 

157* 

.0066  1 

IS** 

0066  1 

1 5 9 • 

00702 

1 60* 

00703 

161* 

00705 

162* 

00707 

163* 

-0D71  2 . 

164* 

007  1 9 

1 6 5 + 

00715 

166* 

007  16 

167* 

00717 

1 6p* 

00720 

169  + 

. 00722 

170* 

00722 

171* 

00723 

172* 

00723 

173* 

00729 

1 74* 

00725 

175* 

0Q735 

176* 

00737 

177* 

0079  1 

17B* 

00792 

179  + 

00794 

180  + 

00746 

1»1  • 

00747 

182* 

00750 

1 8.3* 

-00.7  5(3 

l 8it* 

4X02  <4-44-*  CE2*4E<32  1 1 14-«CE3*xi6B4  1 l > *CL 


6 JSIG«0 

C . CREW  . S.T.ARJ  IMG  INDEX..  . 

READ  903  JUNKl(l),PR00(Il),IE0im),!E02(!l),!E03(Il),!LAB(Il),(J 

1 UNK  1 ( J ) , J-2 , 1 94  , JUNK  2 l U.PrOD  < 1 4 * JU  .4  E04  l 14-*  U .LEOii  n-*44.4EX3J44_+ 
21),ILAB(!1+1),(JUNK2<J1>,J1»2,19) 

8 1 ESS  ( ! 1 ) * 1 2 - - - 

I C R N (j  ) * I 1 

LXElCwIL 

I r ( I 1 . GE  , ! X5CM  ) GO  TO  92 l 0 
c MAXIMUM  BASJ-C  crew 
J3«  I 2 

HCSTUD-IEOl  CIIM.CE.1 
DO  9 J 1 *2 , 1 6 , 2 
I F -I  J UW  K 1 1 J 1 )_  GE-*  924  - G-0  T O -4-C1 
IF  < JUNK1  ( J 1 ) ,E<5.0>  GO  TO  10 

1E0N<  I l 4-42 

I X 5E* I 2 

IF  <12. GT, IX SEMI GO  2-0-9220  — 

DO  13  I M - 1 , I X a 

15*1-4  

IF  < JEQI  ( 15) ,E0, JUNK1  { Jl)  ) GO  TO  7 

I 3 CONTINUE  --  

GO  TO  9370 

7 IEO  < I2T-4  5 - 

INOC  I 2 > * JU  N K 1 < Jl  + 1 ) 

HC-S-T  <4-4  UHCST.M  1 i±lU0<12j  *EJaCl-154  _ 

12*12+1 

ClTMJT  ON  PRINT 

9 J 2 * J 1 +2 

10  IF  < IoUT(5).LT,  l ) GO  TO  It 
J5-I2-1 
P R I NT. 

111) 

II  11*11+1 

IF  < JUNK1  ( J?)  .E0.99)  GO  TO  15 
IF  (JSIG.EQ.1)  GO  TO  6 

14  DO  12  J 1 * 1 i 1 4 

12  JUNK!  { J L 1 *-J-U  N K 2 ( J 1 l .....  

J S I G * 1 
GO  TO  9 

15  1*1+1 
GO  TO  5 

20  IF  ( IG ATE ( 6 ) .LT  . 1 ) GO  TO  29 

c INDEX-INDEX 
11*1 

C LIST  INDEX 

21  I H Y S < I )*!  1 

READ  904  IHY(t),  < JUNK  1 ( K ),  X JUNK < K ) ,K*1,I1) 

IF  (I.GT.IX&M)  GO  TO  9230  ...  

IF  ( IHY<  I ) . E 0 * 9 9 9 ) GO  TO  24 

K * I - J — 

IF  (K.FO.O)  GO  TO  22 

IF  ( IHY < I ) ,NE,  IHY <K ) > GO  Tn  22  - 

I * K 

2?  IXA*|. 

00  23  K« 1 , 11 
C MAXIMUM  HIGHJJ/.AY  -L4-ST 


10100 

10300 

J04QQ. 

10500 

-1.Q4Q0. 

10700 

-1080Q. 


10810 
4-0-900- 
1 1000 
1 1XQ0- 
11200 
- 1 1 300 


l 1900 

— 14-500 

1 1 6Q0 

14*40 

11700 


1 1 2^  1 

NT-953  I l . I l , PROD  <4  44 .1X0  U I-ll.-IX-OX-Ll  1 1-.4E03 4444  .4 LABll 
» I EQS ( I I ) i I EON ( I 1 ) | ( < I EQ ( J4 ) • I NO  ( J4  ) ) • J4*J3  i J5 ) ) 


1 1900 

uooo 

12100 

12200 

12300 

129  00 — 

1 2500 

4 2600— 

12700 
-42800 
12900 
—4-3000- 
13100 
1 3200  - 
13300 
. _ 1-3  40Q- 
1 3500 
1.3  600  . 


1 3700 

'4  3-800 

1 3900 

4 9000 _ 

19100 

19200 

1 9300 
4X400— 
19500 

.49600 

19700 
19  74  0- 
1 9800 
44900- 
19950 
1 50Q0— 
15100 
4.5200 — 
15300 
-15900  - 


P*GE  j 


a 


00753 

l 85* 

IF  ( JUNK1  ( K ) .EQ.999)  GO  TO  39 

00755 

.186* 



I HZ ( T 1 ) ■ J U N K J ( K J 

00756 

18  7* 

0 L Z ( ! 1 )*XJUNK(K) 

_JULZ37-._. 

L08* 



lHYtMJ  1*11. 

00760 

189* 

1X67*1  1 

00761 

_i.?0* 



IF  Ui*ai.  IX-60H)  GO  TO  92*40 

00763 

191* 

23 

I !■! 1*1 

00765 

19.2* 

39 

I - I * J 

00766 

193* 

GO  TO  21 

JO  76  7. 

J_9*t* 

2*4 

IF  110UTi61_.LT,  1 ) GO  TO  28 

00771 

1 95* 

PRINT  995 

00773 

1 9&» 

PRINT  97*4 

00775 

197* 

00  25  J»1  , 1X6 

.0 10QO 

-_Lla» 



I lB.lHXSl.JJ  . . .....  ...  . _ 

01001 

1 99* 

I2*IHVN( J) 

011102 

200* 



I3bJ  — 

01003 

20  1 • 

PRINT  95*4(H0L(6),13,IHY(I3),Il,I2,lIH7rll4) 

-0104-6 

-20  2 * 

PRINT  95  5 ( DIZT  1*41,  I Mb  I 1,  12  ) 

0102*4 

203* 

25 

CONTINUE 

0 LQ.2A 

_20i4* 

_-28 

. JE-1IGAT_E  ( 71  •L-T,  1 1 GO  TO  3*4 

01030 

205* 

DO  37  1 * 1 , 366 

J 1033 

— 206*- 

_ 37 

IWIIliO-  - - 

01035 

207* 

29 

READ  905  t , ( JUNK(K)  ,K*1  ,25) 

01-0*4  *4  ... 

20g.* 

-. 

IF  II  ,EQ  ,999  ) GO  TO  32 

010*46 

209* 

DO  31  K«1  ,25 

IF  ( JUNK  I K ) a 9 9 ft  ) 30,29  ,.32  - 

0105*4 

211* 

30 

Jb JUNK { K ) 

-01-055  — 

212* 

. . 

IF  ( l«L(  J1  ,EQ,0)  GO  TO  31 

01057 

2 13* 

PRINT  959  ( J,IW1J)  ,1  ) 

J-L06J-- 

21m* 

_ 31 

IWJ  J ) (1  - . 

0 1 066 

215* 

GO  TO  29 

.-0104.7. 

_216*  . 

- 32 

Dtt  33  1*1  ,3-69 

01072 

217* 

IF  ( I WV  ( !*1  ) . G T , 0 ) GO  TO  33 

-0107  *4- 

2ia* 

!W  ( I *1  ) *11611  1 .....  ... 

01075 

219* 

33 

CONTI NUE 

J1077  _ 

_22o* 

3*4 

1 F { J OUT!  7l_.LT  • 1 ) GO  TO  *40 

01101 

22  1 • 

PRINT  956 

01103 

222* 

I*  *4  ........ 

01  10*4 

223* 

JUNKJ (11*1 

01105  _ 

2 2 5* 



DO  38  J ■ 1 » 3.0. 

01  J 10 

225* 

38 

JUNK  1 ( J ♦ 1 ) * JUNK  1 1 J 1 ♦ 1 

OJ  112  - 

226*-- 

PRINT  95  7 ( JUNKJ1J)  ,J*|  ,31  ) 

01120 

227* 

PRINT  965  ( JW<  I 1 ) , I |*1  ,3) 

01  126 

22ft* 

DO  3 a J«lt12 

01J31 

229* 

K*  J 

.01102 

230*  - 



-K.15IDM.  ( Jl  

01133 

23  l • 

00  35  K2« 1 , K 1 

01136  ... 

-030* 



JUNK.1JL2  L«IW  (.11 

01137 

233* 

35 

1*1*1 

01  1*41 

23m* 

PRINT  958  ( MON ( K ).( JUNK (K2 1 ,K2*  1 ,K  1 ) ) 

01150 

235* 

36 

continue 

01152 

-2X6* 

- *40 

IF—  Hfi  A.TE18.1  *X  T_»  1 1 GO  TO  *4  3 

01  15*4 

237* 

K*  1 

-011-5.5 

_ 23a* 

_ *41 

READ  90  L l J11NK.11  Jl  , J*  1 * *4  0 ) 

01163 

239* 

DO  *42  J*  1 , *40 

Q-LL6-6  . 

2*4n* 

- IF...UUNKLU  ) ,EQ_^98  ).  ..GO  TO  *43.  ...  . 

01  I7n 

2M  i • 

I X 8 . K 

_ 0-Ll.Tl 

_2i *2* 

X * JUNK  1 ( J) 

15500 

15  600 

15700 
.....  15800 
15900 

_ .15910 

16000 

16100 

1 6200 

. ...  1 6300 

16310 

._  16320 

1 6 *4  0 0 

. 16  500 

1 6600 

167  0 0- 

I *4*  l l * I 2 ) ) 1 6800 

36900 

17000 

. ...  J.7.10Q-. 

1 7200 
17300 
1 7*400 

- - .... 1 7*410 

17500 

. LZ60D 

1 7700 
17800 
1 7900 

18000 

18  100 

. . ...  . . 1.8200 

18300 
18*400 
1 8500 
1 8600 
1 8700 

. . 10800. 

1 8900 
1 9000 
19100 
...  19200 
1 9300 

...  1 9*4  0.0 

19500 
19600 
1 9700 
19800 
19900 

..  . 2.00.0.0 

20  100 
20200 
20300 
20*400 
20500 

. _ ..  20  40.0.. 

20700 

. . — 20800 
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01172 
JJ1U1... 
01175 
JLU  77 
01201 
01202 
0 1 204 
-O.lXQJi— 
01210 
0-1212 
01213 
0X216 
01217 
0 1-2  20  _ 
01222 
0X224 
01224 
0X2  2X 
01227 

0123- X- 
0 1240 
-0-12  42 
0 1 2 *♦  2 
01244 
01247 
0X2  XX 
01265 
0 1267 
0127  1 
015  72 
01275 
-01277 

01301 

01302 

0 1304 

0 1 3 Q 6 
0 1307 
013  12 
01313 
0 l 3 1 X4 
0 13  15 
01316 

0 13  17 
0X320  - 
013  2 1 

01322 

01323 

01324 

01  325 
01  326 
01327 
0L331 
013  3 1 
0X350 
01351 
01353 
0 1354 

- 0 1 3 5A 


243* 

2 *#  4 *.  - 

245* 

_-2<U* 

247* 

248* 

249* 

.25.0*— 

251* 

25  2* 
253* 

25  4-* 

255* 

, 25x«-  - 

257* 

— 2-Sfl  *-- 
259* 

-2X0* 

26  1 • 

262* 

263* 
2X4*-  - 
265* 
268* 
267* 

- 26fl* 


LHK-1  *9  9-g99,9. 


TT ( K ) ■*99999*9 


TT(K)»X/60.0 

_ LE-UHIIKI  LJ)  *EGU99X 

1E  ( JUNK1 ( Jl.EO.O) 

42  K»K.+X-  - 

SO  TO  41 

43  IF  < IOUTISJ  .LT.l  ) _GQ  TO  Si 
PRINT  950 

PR LN-T—96Q-  

PRINT  975 

K ■ 1 

441  DO  44  L ■ 1 , I 0 

XLUJK  1(1.  )*J< 

XJUNK(L)*TT(K) 

. 1 F_LT  T LJU_*  G-TULU-DJ GO_I-0_4-4- 

TT(K>«0.0 

— XUNK  i < LX*-9 9999 

44  K ■ K ♦ 1 

M»l$ 

IF  1K.GT.94)  M ■ 4 

PR  IXI_T--992_44XXKXX{-X.X*-XXimjC4XXX*X*X»HJ- 

tF  1K.LE.94)  GO  TO  441 

5J-I  F 1 tGATE(91.LT.  LX  60-10-55 

c read  RECURRING  jobs 

DO  54 — X*X-.-l-X-9M 


20900 

-2Jmo 


20920 

-2XQOO- 


21100 

21200 


21210 

21-220. 


21230 

21300- 


213(0 
2 1 HOP 


219  10 
21420 


21430 

-2-1440 


21500 
21  550 


21600 

21650 


21700 

-2X400- 


21900 

^221302- 


269* 

270* 
27  1 * 

' 

2 7 2 * - 
273* 

— 

274* 

27S* 

276* 

277* 

27g* 

279* 

315 

2 80*  — 
28  j * 

- 300 

2 8 7 • 
283* 

310 

284* 

28s* 

305 

2 8 X * - 
2 87* 

— 

28a* 

289* 

56 

2?o* 

29  i » 

53 

'DIAGNOSTIC* 

292* 

293* 

298* 

29s* 

9960 

296* 

54 

2 97* 

— 

29  0* 
2 9 9 • 

55 

READ  907  ( | RT VP ( I ) , I RMT  C I ) ,RPR ( I ) , JRLe (!)  , IRSZ1I)  , fRNZl 1 ) , I RM 1 N ( 1 ) 

X-.X-R-M  AX  lXX^t-aaLXX  X.XS  lXX  ,-XReER  Hl+XR  N-T4-1-X) 

IF  1 IRTPEt  I ) «EQ. 9999. AND. f.EQ.l  ) 1X9*1 

IF  1 1 RTP€  (XX  *EQ  . 9999  ) GO  TO  55 

1 X9»  1 

•00.  53  J«XTXX5  

IF  1 IRTPEt  I)  .NE.  ITTYP(J)  ) GO  TO  53 

-XE  ( lE-SOXX)-.XT^XL0tXM GO  TO— 5-6 

NTST.O 

IF  1 JRPER1  Jl-.NE.O)  GO  TO  315 

PRINT  969 

STOP  - 

IF(!ESD<J>-365+NTST*IPER(J)>  300,305,310 


22100 

-22200 


22300 

22400 


22500 

22700 

22600 


22900 

23200 

23300 


23400 

.23500 


GO  TO  315 

IS  ( I ) *1  - — 

XMIJLT1  I )■<  I ESDI  J)*365  + NTST*IPER(  J)  )/!PER(J> 

GO  TO  54  . _ 

IS!  1 ) = 1 

-XMULT  ( 1 ) - WO 

GO  TO  54 

1 S ( I ) a I E S D 1 J ) _ 

XMULT ( 1 ) «1 .0 

GO  TO  5 4 _ 


23600 

237.00 


23800 

-23200- 


24000 

24100 


24200 

24300. 


24400 

24500 


the  transfer  to 

PRINT  996 


24600 

_99.6Q._I-S  -BAD.  BE£  AJjSE— 9-9.XJ.  I S NQ.T  IM-IHF  INNERMOST  OQ  QF  A I4F.SI. 

24700 


PRINT  966  (X >1 R T V P ( XX,  IRMT  ( IX  »-RPR<  IX  .IRLGLI4. 24600. 

1IRSZ(I),IRNZ(I),IRMIN(I),IRMAX(I),IR0L(I),IS(I) , IRPERl I 1 * ! R N T (ID  2 4 801 

STOP  24810 


-GO- 1 0-9 -9 6 0 

IF  ( J0UT19)  .LT.l) 
-RR  I -HT — 9-9-4 


24900 

2.5.100. 


60  TO  58 


25200 

25300 
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onto 

0136  2 
01365 
01365 

0 1 909 

omo6 

01107 
01121 
0113  3 
-O-lUlA- 

01  05 

01114 


300*  PRINT  971 

30  J • 00  57_  !•!  , 1X9 

302*  PRINT  966  ( 1 , I R T YP ( I ) , I R M >7 D , R PR ( I ) , 1 RLC ( 1 ) , 

_30_3  •_ 1 IRS2.CJ  ) . !RM(  ! ) j IRMlN(n  , IRNAX  ( J ) , IRDL  ( I ) , 1S(  I)  , 1RPER  ( 1)  .IRNT1  I 1 ) 

309*  57  CONTINUE 

_30S* 5?  U*ST-0 ...  . 

306*  PRINT  931  ( I X1M  , I X5M  , I X5CN  , I X5EM  , I X6M  , I X6ZM  , I X8M , I X9M ) 

3 07* PRINT  935  ( 1 X 9 . 1 X 5 . 1 X 5C  lI.X  5 E jJ  X 6 » J X 6 Z. » J X 8 , J X 9 | 

308*  IDAy.o 

309 » ISDAy»ISDAY«1  _ 

310*  11-2 

..3l}« IF-UaWfl.O]  - U'3 _ = 


01990 

312* 

I P L A N *0 

-04-1*94— 

3LJ* 

12*1  - 

01991 

3 19* 

C ENTRY  AT  OAT  CHANGE 

04-192- 

700-00  703  1-12*11 

01995 

316* 

X JL (11*0.0 

X JE 1 ( 1 ) *0.0 

01997 

3 t 8* 

X JE2 ( 11*0.0 

-Q  1 ISO AlA*. 

01151  32o* 

-0.L9SJ 42-j  *. 

01959  322* 

-OJ-HSA- 
01156 
-0LiJt57 


324* 

321* 

_12S*. 


324* 

327* 

328* 

-329* 

330* 


01160 

.0 1 1.6-1 

01162 
01963 
01161 

01  945 324  * 

01170  332* 

01  971 33j* 

01173  339* 

-OUUL&. 13  Si- 

01977  336* 


XJEL3.(  U *0.0 

DO  702  J- l , T X 5 
.(—OVER  ALL  JOB -T  YPES 
RUC ( 1 , J ) *0,0 

SLH  ( I , J ) *0  ». 

SE 1 H ( I , J ) -0  . 

SE2_H  M , Jl_*fl. 

SE3H( I , J)*0. 
JLUJU.|  rJJ*IU  . 

T CL ( I ,J)«0, 

— TCEJ  1-,-J  1 *0 . _ 

EQTOT  ( I , J>*0, 

— 1L09 D0_2O4 K-4.-.1X9 

1SEQ  (IC  ) *0 

-—.701  EQH.U,  J,KJjO« 
702  CONTINUE 
.703  CONTINUE  ..  . 

NSP*0 
I L-H 


2531  0 
25900 
25550 
25600 
25700 
25800 
25810 
25812 
25900 
-2ACID0 
26100 
_ 26-200 
26210 
24220. 
26225 
24300 
26310 
24120 
26330 
.2639  0. ... 
26500 
-24600 
26650 
2 67  OB 
26800 
-24-5.00  . 
27000 
27100 
27200 
27300 
27900 
27-500— 
27510 
27600 
27700 
27800 
278  1 0 


01501 

338* 

1 NV5UM-0 

A 2 7 8 1 1 

01502 

3-3.9* 

DO  L03  8 1*1  ,4X10 



- 27812 

01505 

39P* 

1 P ( VP  R ( I ) .LE.O.O) 

I V T Y P ( I ) *0 

278  1 3 

-Q.L5Q7 

3 9jJ* 

J-IVTYPM  ) 

2 7 8 1,9 

01510 

392* 

IP  (J.EO.O)  GO  TO 

1036 

278  1 5 

01512 

3 9 3 * 

IP  (J.E0.9999)  GO 

.TO  10  9Q  

2.Z  8 L.6 

01519 

399* 

I NV5UM*  I NVSUM*  1 

A 2 7 8 1 6 

01515 

395* 

L 1 *_D 

2781  7 

01516 

396* 

GO  TO  1038 

2781  8 

0 1 S 1 7 
01521 


1014-1 P A I UEQtO  1 

1038  CONTINUE 
LQ-9-D Lt LLL»-NiL»  01. 


J.l*l 


JJU0--14 


I VTYP ( I X 1 0 ) *9999 


01527 

352* 

U2L1IU 

NSE  2*0 

0 L5  30.  - 

154*^ 

- NSE3*0  - - - . 

01531 

359* 

NSL*0 

JO-1532 

355* 

KHQL*0  . 

01533 


356* 


DO  1092  I » 1 ,1X10 
-LE-LVPR11  ) .GT.0.0  L— GO. T 0-10-91- 


278  1 9 
27820 
--27-82J-- 
27822 
.27829 
27830 
_ 27  8.9  D 
27850 
.2-78  60. 
27861 
2 7fl  62 
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0 1580 
015.81. 
015*4*4 
O L5  8 6 
01550 

01552 

01553 

0- 1  5-5  *4 — 
0 l 55  A 
04  560 
0156? 
0156*4 

0 1565 

01566 

01567 

01571- 

01573 

01- 576 
01577 

0 1-601  - 
01603 
0160*4 
01605 
01607 
0 16  10 
01611- 
01611 
0 16  13 
0 1 6 1 *4 
0U1  *4 
0163  1 
0 1632 
0 1 63*4 
01637 
0 1 6*40 
016*42 
0 1 6*4*4 
0 1 6*46 
016*47 
0165  1 
01655 
0 1655 
01672 
Q1  673 
0167** 
01676 
0 1677 
01700 
01702 
01702 
0 1720 
0 1721 
01721 
01722 
0 1723 
01725 
01727 
-04-7  3-0- 


1 1 

358 

359 

360 

36  1 

362 

363 
36  4 

365 

366 

367 

368 

36  9 
370 

37  1 
372 
3-7  3 
37*4 
375 
37  6 
377 
37p 

37  9 
380 

38  1 
302 
383 
38*4 

385 

386 

387 
38? 

389 

390 

391 
39? 

39  3 
39*4 

395 

396 

397 

398 

399 
*4  0 0 
**0  1 
**o? 
*♦03 

*40*4 
*♦05 
*406 
*407 
*♦08 
*409 
*4  1 0 
*♦1  1 
*412 
*♦13 
8 1 8 


DO  1 083  J* 1 * 6 

I CREW  ( I * J ).*0  

1043  CONTI  44 U E 
1042  CONTINUE 

IF(IPCAN.EQ.I)  GO  TO  709 
IDAY.jDAY+1 
I 5 D A Y = l 5 D A Y ♦ [ 


27863 


27865 
2 7 86-6. 
27868 
278  70- 
27880 


- . I F t-LSD  A Y»  E Q * 8 1 LSO  A YjU  . 622  8 60  - 

IF  (lOAY.EQ.l)  GO  TO  69  27881 

709  IF  ( 1DAY,NE,NH0L(  IHOL)  1 GO  TO  8-42  - - 278943 

IF  (ISDAY,LT,6>  GO  TO  840  27900 

NMOL  ( I MOL  1 =Nhol  ( IHQL 1*  1 279  4-0 

GO  TO  842  27920 

8 40  KH0L«1  - 27910 

442  IF  (ISDAY.ME.il  GO  TO  69  27980 

IF  ( I D A T »E  0 • 1 > GO  TO  -69  - 27912 

DO  848  I • l , I X 1 0 27960 

J I ND  ( I 1 »0 27-97,0- 

IF  (I  VTYP<  I ) .E0.01  JIND(I)«9  27980 

888  CONTINUE  - - 27-9-9-0 

I S P F C * 0 27993 

MULT-5  - --  - ---  - — - 28000 

IF  ( NHOL ( I HOL  1 .LT.  IDAY  + 5)  MULT«8  28010 

NMULT-MULT  -------  - 28015 

69  ISIG.l  28020 

70  IF  (i-LAST.&T.I&A-Yl-  -GO  TO  «0  - - 28-804) 

C READ  REGULAR  JOBS  28900 

GO  TO  inn  --  -----  29000 

71  READ  907  ( I VT YP ( I)  , I VMT  ( I ) , VPR  ( J ) , I VLC  (I)  1 I VSZ (I)  . I VNZ ( 1 1 , I VM I N ( I ) 29300 

1 , I VMaX  ( I ) , I VDL  (I  ) , IDTF  ( I ) , T VNT  (!)  1 -29800- 

IVDL(  1 ) =»  I V D L ( ! ) ♦ 1 DTE  { I ) 29500 

!F<  1 VTYP<  I ) .EQ.9999)  GO  TO  63  2-9-60-0 

DO  6?  K* 1 , I X5  29700 

I NDX  ( 1 ) «K  29800— 

IF(INVSUM,GT,1NVMAX-11  Gn  TO  80  29810 

IF  ( I VTYP ( I ) ,EQ.  ITTYP ( K 1 ) GO  TO  63  29900 

62  CONTINUE  30000 

GO  TO  30  2 ...  ...  - 10-10.0- 

63  IF  ( I DTE  ( I ) , GE , I L AST  ) GO  TO  630  30200 

PRINT  936  ( I U AST  , 1 DTE  ( I 1 ) — -30210 

PRINT  966  < I , I VTYP  ( I ) , I VMT  ( I ) , VPR  ( I ) , I VLC  ( I ) , ’30220 

1 I VS7 ( I) , I VNZ ( I 1 , I VMIN ( I ) , I VMAX (1) , I VOLLI ) , 1DTE( I ) > - -30230 

GO  TD  631  30290 

630  1LAST*IDTE(  U . -.  JJLlflfl 

631  IF  ( IDTE ( 1 ) .GT.36S)  GO  TO  80  30800 

JS I GsO  - - 30500 

GO  TD  150  30600 

68  IF  f i OUT  (101.LT.1I  GO  TO  72  _ 30700 

PRINT  966  ( I , ! VTYP ( I ) , J VMT  ( I)  , VPR  ( I ) , I VLC  ( I ) , 30800 

1 I V S 2 ( 1 ) * I V N Z ( 1 1 « I V M I N ( I ) . IVMAX11  ) , ULDlU  1 .40  l£l  1 1_  I NOJC-Hl) 1Q9LQ0 

72  GO  TO  70  31000 

on  1SIG.2  ------  31-100  --- 

r ENTRY  FOR  RECURRING  JOBS  31200 

J 3 j . . . - - 31300  

175  IF  (ISIJ1.LF.7)  GO  TO  100  31800 

708  IFI  ( IS(  Jl  + IFULL!  ,NE.  ( I0AY  + 7U  - GO  TO-  -8*1- -31100 

100  I “ J I N X 31550 

TFU.NE.Ol  GO  TO— 1-0-2 11571 
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1 2 


01732 

* 16* 

DO  101  11*1,  1NVMAX 

3 1 600 

OH  3 5 . 

*17* 

l?  LI  . . . . 

317  00 

01736 

* 18* 

IF  ( I VTYP ( 1 ) ,E0,0000  ) SO  TO  102 

3 1800 

01?*0 

* 19* 

IF  ( I VT  YP  ( l ) , NF  , 9999  ) GO  TO  111 

3 1 900 

017*2 

*20* 

I VTYP ( 1 ♦ 1 ) .9999 

32000 

017*3 

*21* 

I X 1 0*1  X 1 0* 1 _ 

32100 

017** 

*22* 

IF  C I X 1 0 ,GT, JNVMAX-2)  GO  TO  325 

32200 

01I_*6 

. *21*  . 

GO  TO  102 

32  3P0 

017*7 

*2** 

101 

CONTINUE 

32600 

-0-1  75 1 _. 

*25* 

102 

JINX«0  . 

-3-2654 

01752 

*26* 

IF  ( 1 5 1 G-2  ) 7 1,81,103 

32700 

017  55 

*27* 

-103 

IF  (IS!G-*  1 91  ,93,96  . _ . _ _ 

_ _ _ 12800 

0 1760 

*28* 

8 1 

IF  » IRTYP( j)  ,NE,2)  GO  TO  302 

32900 

0 17-62  __ 

*29* 



IF  |1S(J)*LTj7)  GO  TO.  30*  ....... ...  ... 

.33  0.00 

0176* 

*30* 

IF  ( IS0AY.GT.5)  GO  TO  61 

33  100 

01766 

*31* - 



GO  TO  301  - - — - 

3X200 

01767 

*32* 

30* 

J1-IS1 J)*1S0AY-1 

33300 

017  70 

* 3 3 * 

J2» J| /7 

X3  *0  O 

01771 

*3** 

J3« J 1 -7* J2 

33500 

0 177? 

*ls* 

. IF.  LJ3.,  EJJ  . 6,  OR,  J3*EQ_.0J  . .GO  TO  .61  ... 

3.16  0O_  ... 

0177* 

*36* 

30  1 

IF  ( j S { J ) , NE  . NWOL  ( I HOD  ) GO  TO  302 

33700 

-017  7.6  _ 

*37* 

61 

JSLJ4*IS(J)*IPER(J) 

33710  .._ 

01777 

*38* 

GO  TO  175 

33720 

0200  Q _ 

*39* 

302 

IF  UNVSUM.GT.  INVMAX.2)  GO  TO  325 

31730 

02002 

**0* 

I V T Y P ( I ) ■ I R T Y P ( J ) 

33800 

07007 

*.*  X* 

IVMY(I)«IRhT(J)  ......  

. 13  900 

0200* 

* * 2 • 

VPR ( I ) «XMULT ( J 1 *RPR ( J ) 

3*000 

-02005- 

•l*  3 «l 

. 

XM  LLLX  ( J ) ■ 1 , 0 

3*100 

02006 

**  4* 

I VLC ( I ) • I » L C < J ) 

3*200 

02007 

**5* 



1VS21IXjJRSZLJ1 

._  . 3*300. 

02010 

* * 6 • 

I V N 2 ( ! » - I RN  2 < J) 

3**00 

J3201 1 

- * *7  •_ 

.LV.MJ  IXLlX  * I R M.1  N.(  JX 

3.*  50  a 

02012 

* * 8 • 

I VMAX { I)  ■ I R* AX { J ) 

3*600 

020  L3  _ 

*.*J9* 

_ J VDLJ  X)  ■ 1 RDL  LJ ) ♦ IS  ( J ) 

3*700 

0201* 

*50* 

!OTE( I 1 ■ I S ( J ) 

3*800 

02015  _ 

*51* 

IV.NJ  { X ) * I R N T_(  J } 

3*900 

02016 

*52* 

JS I G»  1 

35000 

-02OL7  _ 

*5  A* 

_D_0..  30  3 KjlI^IX.S 

35300 . 

0 202? 

*5** 

INOX ( ! ) mK 

35*00 

02023 

* 5 5l* 

IF  { I VTYP< I ) ,EQ. ITTYP(K) ) GO  TO  150 

3 5 50  0 

02025 

*56* 

303 

CONTINUE 

35600 

-02027 

_*  5 7* 

PRINT  927 

35700 

02031 

*5g* 

PRINT  966  ( I , I VTYP ( I ) , I VMT  I I ) , VPR ( I 1 , I VLC ( I 1 , 

35800 

02031 

* 5 Q • 

1 1 VS  7 It  ) . 1 VNZ  ( 1 > , 1 VM!N  ( I ) . I VHAX  ( t > , I VOL  ( I ) , I DTE  (I) 1NDXX  I J_1  _. 

3590Q 

020*7 

*60* 

3030 

I VTYP  ( I ) *0 

35950 

02050  — 

A61* 

-_J  I NX  * I 

35960 

0205  1 

*62* 

VPR ( I ) *0 , 0 

35975 

.02052 

*6  J* 

GO  .TO  8* 

35980 

02053 

*6** 

150 

CALL  HZONE 

36000 

. 02Q5* 

*65*__. 

X-99./60. ...  . .. 

36  010 

02055 

*66* 

IF  ( T T J ( I ) , L T , X ) GO  TO  155 

36015 

-02057 

*62* 

- _ . . 

P R I N-T  9 9 3 

36020 

0206  1 

*68* 

PRINT  966  ( 1 , I VTYP { I ) , I VMT ( I ) , VPR ( I ) , I VLC ( I ) , 

36030 

02061.  _. 

*699  — 

1 I VSZ  ( I ) , I V.NZ  (I),IVMIN(I),!VMAX(I),IVDL(I),!DTE(11,INDX!I)) 

36031 

02077 

*70* 

GO  TO  3030 

360*0 

-02X00  .. 

*.7X4- 

. -155 

. Jl*  INDXXI.) 

17200 

02101 

*72* 

T0J(I)*e.0-SUT(Jl)-2.0*TTJ(l) 

37300 

02102. 

- *73* 



J.F  ( JSlG.EQ  .0 ) GO  TO  6*  

37*00 
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l 3 


*4  t 

!DTE( ! ) , I NO  X ( I ) ) 


021  A5 

898* 

02171 

Q?  J Tli 

500* 
sn  j • 

02  1 7 A 
07  j tt 

502* 
50  3 * 

I 02200 

i njjni 

508* 

• 

02202 

50fi* 

02206 
0221  1 


50-7* 
500* 
-509*- 
5 10* 


0221  3 

512* 

-02245- 

513*  - - 9 

02218 

518* 

02?  J A 

sis* 

02220 

516* 

-0.221.1.. 

517* 

02222 

-02223- 

0222*4 


5 J 0* 
545*- 
520* 


02227 

522* 

02236 

528* 

-Q4L23JL- 

— 525* 

02280 

526* 

__T?28  j 

52  7* 

02282 

528* 

02252 

530* 

02253 

531  * 

I5( J)«!S( J)*!PER< J) 

.JCjiJ-NOJIUJ - ~~ 

I F ( ILD(K)  ,UT,  !ESO(K)  ) GO  TO  82 
I F . 4 I S 4 J.l~»  L E * J.L D i K. U—  - 6 0 TO  820  _... . 

1 5 ( J ) • 3 A 7 

GO  TO  8 3 

IE  ( J S ( J > • LT  « ! ESD ( K ) ) GO  TO  830 

82  JJ—LISJ  0-L.L£-*4-LDUQ_l SO.  10  .83..-  

IF  ( 1 S ( J ) .GE t IESO (K 1 ) GO  TO  83 
830  I S ( J ) ■ 1 E5D  ( K ) 

83  IF  ( !OUT( It  ) .LT,  l ) GO  TO  t 75 
P84-WT-  9AA  ( I »1VTYP(  1)  ,1  VMT  < 4 1 rYP.R44  > t J-VLC  4 

1 !VSZ(I  ) , l VNZ(  ! ) , ! VHINm  , I VMAX  11)  , I VDL(  I ) , 

ao— to— 4W — 

325  l FULL* I FULL ♦ 1 

PRINT  925  UFULL.10AV)  — 

J* ! X9*  1 0 

J-»J+4 

IF  ( J.LE.IX9)  GO  TO  175 

4X_44F-ULt^EJU-04 GO -TQ- EJtO- 

IF  (J.GT.IX9)  GO  TO  880 

4-F  44L  L-*  4-F-UL-L-*  l- 

GO  TO  70 

!F4450A^»J4£-rW4ND,404Y*NE^  1 > 60  TO  3090  

IF(MULT.EO.O)  GO  TO  3090 

DO  3020  I * 1 , I X 8 

3020  440£QT41)**ULTj»1FQW04  1 >*ISE0U>  — 

ndf«mult*nf«nsp 

N04.«M4LT*NL,--NS4--  - - — - - - . - 

NOEl »MULT*NE 1 -NSE 1 

N0E2*N-U44T-tN.E-2-«NSE4 

NDE3»MULT*NE3*.NSE3 

DO  34195  J«I*4X5  — - 

WUP<  j , J)«0,0 

3095  WUP(2,J)*0«0  --  -------  - - - - 

GO  TO  2022 

30.90  MULJai 

I PL  AN*0 

90  IF  ( INVSUM,-GT#4NVMAX-2  . AND.  IW  < IDAY*3).GT.1.AND.I*I< IDA Y * 31 »LT* 84 
1 GO  TO  3 0 9 A 

IF  ( I- W ( I DA~Y  *34  *NE  • 3 ) GO  TO  95  . . ..  

ISIG.3 

—GO.  TO  LOO . 

9 1 lVTYPUt-3000 
V PR 4_I  )»U0 

I DTE  ( I ) ■ I D A Y 

IF  { IOUT < 12) «LT« 1)  GO  TO  92  - 

PRINT  958  (HOL ( 1 2)  , I , IW(IDAY*3) » I VTYP ( I ) ) 

— 92.-XS4.Gs8  - 

GO  TO  100 

.93  I VTYP ( I J »3500  - - 

I DTE  ( I ) ■ I D A Y ♦ 1 

VP  R ( I)*l  .0  — - - • - 

IF  < ! OUT ( 13)  * L T , 1 ) GO  TO  105 

PR4N-T  9-5  8 (HDL  4424^4-,  lW244)AY*3)  fIJ/T-YP444)-  

GO  TO  105 

9 5 1 F 44  W 4 LDA2t3)  . NfL.  2)  GO  TO  105 


38100 
3 820a 
38300 
3 8 8.00 
38500 
-38600 
38650 
-15-70.0. 


38800 

3890Q 

39000 

-39-400 

39200 

.29200- 


39310 

29220 

39330 

-39  800 

39500 

3 25 02 

39508 

29502 

39508 

— 295443 

39515 

29520 

39525 

— 3953a  — 
39535 

— 39537 
39580 

. —39555 

39550 
3 9557  ----- 
39558 
39559— 
39560 

-39-562 

39565 

39590- 

39591 

39600 

39700 

12-8QQ 


39900 
-3994  0 ... 
80000 
--  804  ao 
80200 

-—803  oa 

80800 

-80  50  0 

80600 

8061-0 

80700 

- *toaoa 

80900 

--84000 


14 

532* 

533* 

534* 

535* 

536* 

537* 

530* 

539* 

540* 

541* 

542* 

543* 

544* 

545* 

54«* 

547* 

54?* 

549* 

550* 

55  1* 

552* 

55  3* 

554* 

555* 

556* 

557* 

558* 

559* 

560* 

561* 

562* 

563* 

564* 

565* 

5 66* 

567* 

5 4 8* 

569* 

570* 

571* 

572* 

573* 

574* 

575* 

576* 

577* 

578* 

579* 

580* 

58!* 

592* 

583* 

584* 

595* 

586* 

507* 

588* 

599* 


l S I 6 ■ 5 
GO  TO  100 

3096  PRINT  926  ( ! 0 A Y , ! W ( I 0 A v ♦ 3 ) » 
GO  TO  105 
96  1 V T V P ( I ) *2000 
10TE(  1 J ■ I 0 A Y 


41100 
4J200 
4 1210 
4„L220  _ 
4 1 300 
4 l 400 


105 


VPR ( I ) » 1 .0 

If  <10UT(  14)  ,LT.  I ) GO  IP  .105 __ 

PRINT  954  (HOL  ( 14)  , I , 1V»{  IDAY*3)  , 1 VTYPI  1 )) 

ISPEC-0  

I S I G ■ 0 

00  1 24  I« l , I X 1 0 

11*1 

JIND(!)«0  „ 

IP  < IDAY.LT.  I D T E < I ) ) GO  TO  452 


41410 

4 1 500  

4 1 600 

-44_ZQ0 

41710 

41715 

4 1720 

41725 _ 

4 1730 


J«!VTvP<  I)  - - - 

IP  ( J.EQ.O.OR. J.EQ.9999)  GO  TO  452 

IP  ( J.EO.  2000,  OR,  J.EQ,  3000)  GO  TO  25CT  — 
IP  (J.EQ.3500)  GO  TO  1046 
IP  USOAY^GT.S.OR.KHOl.EO-.  1 1 G-0-  TO-  452 — 

GO  TO  453 


4-1 7-4*1 

41745 

— 44750 

4 1760 

4J767 


1046  I S I G*  I 1 

GO  TO  124 

452  J 1 N 0 ( I ) ■ 9 

C JOB  IS  NOT  YET  DISCOVERED 

GO  TO  123  _ - 

453  IP  (J.E0.1000)  GO  TO  454 
C RELEASE  AUXILARY  CREWS 

Y«VPR ( 1 ) 

DO  1 1 2 J* 1,6 

IP  ( I CREW ( I , J)  ) 111,113,1)2 

1 1 1 I CREW  t I , J ) *0  

1 1 2 CONTI NUE 

113  K«IW<  IDAY  + 3 ) 

cpr ( i ) « . oooono 1 

J*IN0X ( I ) 

K 1 «0 

IWX.lWAfJ)  

114  K 1 *K  J + I 
K2*IWX/K0N(K  ) 

K2«<IWX-K2*K0N{K))/K0N(K*1) 

IP  (K2.EQ.0I  GO  TO  123 
IP  (Kl-2)  116,117,115 

115  IP  ( K_1  " 4 ) 118,119,119  . 

116  I W X « I W B ( J ) 

K*IW(  I D A Y ♦ 2 I 

c day  -i 

GO  TO  1 1 4 

117  I WX*J WC ( J) 

K ■ I W ( I BAY*  l ) ... 

C DAY  -2 

GO  TO  1 1 4 _ 

118  IWX»|WD(J1 

K * ! W ( T 0 A Y ) 

r Day  -3 

GO  TO  1 1 4 - . 

t 1 9 SUM.0,0 

DO  12  1 Jsl,6  -----  - 


44  7 7 0 - 
41780 
-44-900- 
42000 
-42  400- 


42200 
42300- 
42400 
-42500  _ 
42600 

-42700 

42800 
-44300- 
43350 
43400 
43500 
-44600  _ 
43700 
-4 1800- . 
43900 
44QOO 
44  100 
-44200- 
44300 
4 4-4Q0 


44500 

4 4600--  _ 

44700 

4-4.600- 

44900 

-45000 

45100 

45200 

45300 


45400 

45600 

4-5700- 
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02377  5 9 0*  J 1 » 1 C R E W ( 1 , J ) 45800 

02400. 5.91* _.IF  4J1.EQ-.0J  GO  TO  .122 . iSiD.CL 


02902 

592* 

121 

SUM.suM  + PROD ( J 1 1 

06000 

.02.009  . 

.593* 

122 

IF  (SUM. LE. 0.0)  GO  TO  123 

- • - 

....  9 6100 

02906 

599* 

X*TO J ( I ) *SUM 

06200 

.03  907 

595* 

. . 

J)  *.(  Y/X  1 *0,5 

- — 

96300 

029  1 0 

596* 

Y.Y-X 

96900 

02914 

0201  3 

-02-94-0 

029  15 
0794-6  _ 

59  7-# 
598* 
599* 
600* 

60  4_». 

029  1 7 

602* 

0-24-20 607*-  — 

02921 

604* 

0242-3 

605* 

02425 

606* 

0392-6 

-697-*— 

02427 

608* 

-0-2430 — - 

609* 

02433 

6 10* 

-0243  4 — 

614* 

02436 

6 12* 

02490 

61  3* 

02442 

6 14* 

-02442 

-615* 

02460 

6 16* 

02464 

617* 

02462 

6 18* 

02463  — 

-619*. 

02463 

620* 

.02466 

621* 

02470 

622* 

02471  — 

624* 

02472 

624* 

412973 

625* 

02474 

6 2 6 * 

02475 

627* 

02476 

62b* 

02500 

629* 

02502 

630* 

02503 

.631* 

02504 

632* 

02505 

6334.  __ 

02510 

634* 

02511. 

635* 

025  1 2 

636* 

02513 

637* 

0251  4 

638* 

02 5 JO  . 

619*  _ 

025  1 6 

64o* 

0-251?-- 

64  1 • 

02520 

642* 

02530. 

643* 

02523 

644* 

0353  9 

.645* 

02525 

646* 

_ .. . ..  is.  < y.ie.o^oi  .-y.*o*o aasjul 

I ETC ( I ) ■ 1 OA Y*J 1 46600 

I DE  L T A ( I ) * I V DL 1 1 1 “ I E TC ( ! ) *447-00 

GO  TO  129  96900 

454  JlND-(  I > *1 - 94910 

123  lETCm-10000  97300 

- 1 DELTA  (11*10000 - 47-9QO- 

129  CONTINUE  97500 

IF-  -HSIS.EQ.O)  GO  TO  l IQ — — 41410 

I 1 * I S I G 97520 

250  1 SPEC-! 9X510 

J-IVTYP(II)  97535 

00  -440- JCl-1  * 1X5  - 47440- 

K*K1  97550 

IF  (J»EQ*ITTYP(Kl  ) ) GO  TO  951  47560 

950  CONTINUE  97570 

PRINT  - 42  7 — . — 97571 

PRINT  966  ( II  , I VTYP( I 1)  , IVMT( I 1 ) ,VPR u n . f VLC ( n ) t ! VSZ( 111 , 97572 

1 1 VNZ  l Hl-t-lVM  141 J J ) j VmAX  < l j ) , i VOL  (11  > “101514  U , INOXIU  M 9 7-527- 

I V T Y P ( I 1 1*0  97576 

V PR  ( | 1 4*0,0  - - - - . --  97577 

951  1NDX(!1)«K  97580 

4 10  -00  4 39  --1*4,  J X9  - - — 97600 

C DAILY  INVENTORY  IGNORES  PERMANENT  CREWS  INITIALLY  97700 


139  .N0ELQlil4*MUU'»IEQN041)*lS50(  I ) - 97.8.00. 

NOE*MULT*NF-.NSF  97900 

NDE 1 «MULT*NE 1 -NSE 1 98000 

NDE2«MULT*NE2-NSE2  98100 

NDE3«MULT*N£3'sNSE3  98200 

NDL*MULT*NL-NSL  98300 

PAYRO.UiM.UlX*  tNF*CF  + NL.*CL*NEl  *-CEl.+  NE2*CE2.+  NE3*CF3)*8.Q  95305 


IF  (NDL+NDE 1 *NDE2+NDE3,LE,P ) GO  TO 
IF  (ISPEC.EQ.O)  GO  TO  106 
K* t NOX ( I 1 ) 

J 1 ■ I CRS ( K 1 
J2*ICRN(K) 

00  936  J 3 * J.  1 , J2  . . _ . . 

J*I VTYP ( 1 1 ) 

J9*IEQS(J3) 

JS* I EQN ( J 3 > 

J9*ILAB(J3> 

K1-IE01  ( J3) 

K2«IE02(  J3)  _ ...  

K3*!E03(J3) 

J8*0 

00  926  J7« 1 , 1000 

C MULTIPLE  OF  BASIC  CREW 
L9bJ7*J9 

L4«J7*<1  - 

L2*J7*K2 

L3*J7*X3 


770  90310 

_ . 9 8900 

987  1 0 
99100 
99200 

49300. 

99350 

99900 

99500 

99510 

99520 

.....  _ 49530. 

99590 

. - ...  99590 

99600 

...  9 9700 

997  1 0 

...  . 9 9.90  Q 

50000 

50100. 


p Ar,r  : 

1 6 

02527 

6 ft  ft  • 

IP  (L9.GT.NDL)  GO  TO  428 

50110 

02531 

649* 

IP  (LI  .LE.NDEl  ) GO  TO  420 

50200 

0253  3 

650* 

L 2 = L 2 ♦ L 1 -NDE  1 

50300 

0253m 

65  1 « 

L 1 *NOf  1 

50400 

02535 

652* 

420 

IP  (L2.LE.NDE2)  GO  TO  422 

50500 

02537 

65  7* 

L3*L3+L2-N0E2 

50600 

025MO 

6 5 4 • 

L 2 * N 0 r 2 

507  00 

0 2 5 M I 

655* 

422 

IP  (L3.GT.N0E3)  GO  TO  428 

50800 

0 25  M 3 

656* 

DO  424  J 6 a J ft  , J 5 

50900 

02546 

657* 

K4«IE0(J6)  ._  ....  . _ 

S1JD00 

0 2 5 M 7 

65ft* 

IP  ( J7* I NO ( J6 ) , GT  , NDEQT ( Kft ) ) GO  TO  428 

51100 

02551 

659* 

424 

CONTINUE 

51200 

02553 

660* 

426 

J 8 * J 7 

51300 

02555 

66  | • 

I E R R « 1 0 1 

51HQH 

02556 

66?* 

GO  TO  899 

5 1 500 

02557 

6 6 3* 

4 28 

X «8 . 0 

S 1 600 

025^0 

664* 

X 1 *L 1 -K t 

51601 

0256  1 

665* 

X2*L  2-K2  _ _ 

5 1 602 

0256? 

666* 

X 3*L  3-K  3 

5 1 603 

02563 

667* 

X9«L9-J9 

-5i  60.4. 

0 2 5 6 4 

66ft  * 

IP  (J.E0.3000)  X«10,0 

51610 

02566 

669* 

J*  I NDX  ( I 1 ) 

. ..  . 51615  . . 

02567 

670* 

00  432  4*1,3 

5 1700 

02572 

67(* 

SLH ( m , J ) *SLH ( M , J ) *X*X9  . 

51800 

02573 

672* 

SElH{M,J)«5E:iH(NtJ)*X*Xl 

51900 

02574 

673* 

SE2W  ( HtJ.)  «SE2HLH,  J)*.X*X2 

.52-0.0-0- 

07575 

674* 

SE3H(M,j)=sE3H(H,j)*x*X3 

52100 

02576 

675* 

TCL(M,J)=TCL(M,J)*X*(X9*CL*Xl*CEl  * X2  • C E2*  X 3 • CE  3 ) _ 

...  . - 522X10  . 

02577 

676* 

OD  430  J 6 a J ft  |J5 

52300 

02602 

677* 

J7«IEQ(J6)  --  

5240.0 

02603 

6 7ft* 

X6»  INO ( J6 ) *J8 

524  10 

02604 

679* 

E0h(m,j,J7)*EQH(M.J.J7L*X6¥X . ...  . __ 

52500  ._ 

02605 

6ftn* 

4 30 

EQT0T(M,J)«EQT0T(M,J)*X*X6*EQC(J7) 

52600 

02607 

68  1* 

432 

CONT  1 NUE  ...  ....... 

. 52700 

026  M 

68?* 

N0L*N0L-J8* J9 

52800 

026  1 2 

683* 

NSL*NSL+ J8* J9  _ ...... 

5 2 8 1 Q 

026  13 

684* 

NOE  1 »NOE 1 - JB*K 1 

52900 

026  14 

68*;* 

NSE  1 r N S P 1 ♦ J8*K 1 

- . ..  52910 

026  1 5 

686* 

NDE2*NOE2-J8*K2 

53000 

0261  6 

6 ft  7 • 

NSE  ?*NSE2*  J8*K2  _..  . . ... 

' 53010  .... 

026  1 7 

688* 

NDF3aN0E3- J8*K3 

53  100 

02620 

689* 

N5E3«nSE3*J8*K3 

.53110. 

0262  1 

69Q* 

DO  43ft  J6*J4,J5 

53200 

02624 

6 4 1 • 

J 7 a I F 3 t J6  ) 

53300 

02625 

6 92* 

ISEQ ( J7 ) * ISEQ ( J7 ) ♦ INO ( J6 ) * J8 

53310 

02626 

69  7* 

4 34 

NOEOT(  J7)*M0EQT(  J 7 ) - I No  ( J6)*J8  _ . ....... 

_.  ........  53400 

02630 

694* 

436 

CONTINUE 

53500 

0263? 

695* 

V°R  ( I 1 ) *0.0  _ . — - 

..  53550 

02633 

696* 

I VTYP ( I 1 ) *0 

53600 

Q 2 6 3 4 

697* 

fid  Tn  1 05 

53610 

02635 

6 9 ft  • 

106 

I 8*1 

53700 

02636 

699* 

177 

1*18  .......  

53800 

02637 

700* 

C 0 5 T ( 1 ) *0.0 

53900 

02640 

7 C 1 * 

IP  (JlNDlI  1 • E Q * 9 1 GO  TO  IftO  

54000.  _ 

0264? 

702* 

J 8 a 1 

54  100 

02643 

703* 

176 

J*  J8  ...  ....... 

5420  Q_ 

02644 

70ft* 

I EXa  J 

54300 

07645 

70c.* 

IP  U-CREWl  I . J)  .EQ.O-J-.  - 6Q-  m 1H0--  - - 

59-40  CL 

page-  s 


026*47 
-026.50  _ 

02652 

02653 
0265*4 
02655. 
02657 
02.6  40-  _ 
0266  1 
02663 
0266*4 
0266  5 _ 
02665 
02-667  — 
0267n 
026-74 
02672 

02675 

02676 

0 270-0-  - 
02702 
-02705  - 
02707 
02  740 
027  1 1 
-02-74-2 — 
027  1 *4 
027  1-5 
027  l 6 
0274  7 
02720 
-02  721  — 
0272*4 
02725 
02727 
02730- 

02732 
0.2  233  __ 
02736 
027  4.1 
027*4  1 
02744 
02747 
027  50  — 
02750 
02  75  3 
0275*4 

02756 

02757 
027  60... 
0276  1 
027  6 2- 
02763 
02763 
0276*4 

- 02  7 66 

02770 

02771  — 
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706* 

707* 

7 0 fl  • 
709* 

7 10* 

711* 

712* 

713*- 

7 1 *4* 

715* 

716* 

71  7 * 

7 18* 

7 19* 
720* 

72  H* 
722* 

7 23*- 
72*4* 

72  5 A 
726* 
727* 
728* 
729* 
730* 
734-* 

73  2* 

7 33* 
734* 
735* 
736* 
737-* 
738* 

7 39* 
7*40* 

74  l * 
7*42* 

7 43*- 

7 *4  *4  • 

745* 

7*46* 

747* 

7*48* 

7 4 9*- 

750* 

751# 

75  2* 
753* 

7 5 *4  • 
755*  . 
756* 
757*. 
75a* 
759* 
760* 
-7  6 1 * 

762* 


141  J 1 - I CREW ( 1 , J) 

. _ _J  7 2.  LE  ( MJL-.LI.4lLL  AB  U j.U jGJ_. UP— U 1 

K1-IE01 < J1 > 

K2-IE021JI ) 

<3*IE03( Jl  1 

IF  (K1.LE.NDE1)  GO  .20.-125  - 

K2«K2*K 1 -NOE  1 

....  K.l_s.ND.jr  1 

125  IF  (K2.LE.N0E2)  GO  TO  126 

K3«K-3*K2«NJE2 

K 2 “ N D p 2 

126  IF  (K3.GT.N0E3) GO— TO  4-64 

C THIS  path  meanss  all  personnel  are  available 


54500 

.5*1600- 


54700 
-5-4800 
54900 
-5500-0- 
55100 
. 5S20Q 


55300 

SS4Q0 


55500 

-55600 


55700 

ssaoo 


J2* I EQ5 ( J l 1 

J3»IE0N3J43 

00  107  J4«J2,J3 

J5*I  E04J44 


55900 

56000 


56100 

56200- 


IF  (NOEQT( J5) .LT. INO( J4) ) GO  TO  161 

.107  -CONJU-N.UE 

DO  157  J4« J2 , J3 

1 F— 4 j Na4344.  E-0.54 GO-  -TO— 1-37 

JS*!EQ( J4) 

_ N D EOT4  J 5-L*NOEQ T4364*LN0  (l44  3 
SUM«SUM#IN0(J4)*EQC(J5) 

4 57  -CONT4-OUE  -- 

NDL»NOL-ILAB( J1 ) 

NDE 1 »NOE 1 -K4 

NDE2«NDE2«K2 
NDE3»N0E3-*K7 
COST(  1 )*SUM#C05T( ! ) 

LF  ( ! EX.2) L39  .402  ( 1 42 

129  J0-J8+1 

IF  (J8.LE.61  GO  TO -406 

140  I 8 ■ I 8 * 1 

IF  (I 8.LE.IX101-  GO  TO  177 
GO  TO  132 

16  1 IF  (I  E-X  ’aZ) L30.-L4  6.  146  

130  DO  131  1*1 ,1X10 

00  1 34-  -J«L  ,6 


56300 

-56.400., 


56500 

56510 


56600 
-54200 . 


56800 

-5-6900- 


57000 
— 57  1O0 
57200 
— 52300- 


57400 

57500 


57600 

57700 

57800 

57900 

58000 

..saiQo. 


C RELEASE  all  CREWS  INVENTORY  AFTER 

131  I CREW ( 1 .J)«0 

GO  TO  110 

132-00  1 3 3 -I  *1  «_L)Li-Q- 

C RANK  BY  idelta 

JRANK  ( I l-l  

133  JUNK  1 ( 1 ) -IDELTA ( I ) 

ISIGbO  

CALL  RANK 

— .13  8.  12*1  . 

178  I * JR  ANK ( 12) 

- - l EX ■ 2 

Y-VPR ( I ) 

C NONSENSE  JOB  . _ 


PERMANENT  CHECK  Is  NEGATIVE 


58200 

-58300 

58400 

.58500- 

58600 

58700. 


58800 
5890-0- 
59000 

59010 

59015 
40400, 


60500 

60550. 


IF  ( J I N 0 C I 1 « E 0 . 9 ) 

IF4  344*04  I ) .4LQ-.44 

J * 1 

1-5  1-G-m-Q 


GO  TO  179 
-GO— T 0 160- 


60575 

60700 

6Q300- 


61000 

61200 


PAGE  S 
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02772  76  4*  140  I F ( ! VT  YP  ( ! ) . EQ . 9999 ) 60  TO  UO  61250 

_0?2M_ 765*  IF.tr.L5tP.  ) GP„TO  J.6.P 61270 

02776  766*  IP  ( T DE L T A <1  ) , GE , 0 * A ND « 1 CELT  A ( I ) . NE , i 0000 ) GO  TO  |60  61300 

02776 7AZ»_....C  JOB  IS  QN.  AR  AHEAD  OF  SCHEDULE  _ _ 6M00 

03000  760*  IP  ( ICREWl l , 1 ) ,EQ,0)  GO  TO  162  61500 

22002 74_?*_..  2.  AT.  LEAST  ONE  CREW  IS.  ASSIGNED  61800 

03002  770*  IF  ( ICREW(  1 ,6)  .EO.O)  GO  TO  Ml  61900 

-Oaflfla 11X3. l 4 4 PRINT  .9  6 7 (_H  0JJ.1 9J  j J D AY  j_L»  J .UlVJYPJ  II  ,.I  E T C J U i.LvPL  LI  1..  LLCBMLLLi  !LLj_  MLQ  0 0 

03004  772*  1 K ■ 1 » 6 ) ) 62100 

-03021  772# 60  TO  160  ... _..  62200 

03022  7 7r*  M2  DO  M3  J2.1.6  62300 

-03025  -7.7S* J3aJ2  - 62400 

03026  776*  IP  ( l CREW M , J2 > , EQ . 0 ) GO  TO  M5  62500 

-03030 77.7# M3  C0NI4-NJUE.  - 62600 

03032  770*  1 45  I CREW ( 1 , J3 ) ■ J 1 62700 

03022 770* IPUVMlNMl.Gf.O)  J VMLN4  I-)  •*(  1 02Y#J  VM  M M L) 62800 

03035  780*  SUM-0,0  62900 

02026 70|*  00-1452  ^12*1  M l 62950 

03041  702*  J4- ! CREW ( I , J2 ) 63000 

-020-42-. 7.84# M44JUEQ-.0  \ SO  TO  4-4  5-4  62100. 

03044  784*  IP(J4.LT.O)  J4--J4  63200 

-02046-  785*  M52  SUM«sUM*PROD ( J4 ) - 63300 

03050  706*  M 5 4 X.SUM*TOJM>  63400 

0305.1 707# J2«  ( Y/X  1 +0.5  ...  ....  63500 

03052  780*  Y.Y-X  63550 

-0.3052 2.0A# If— (-Y-,LE«-CL.02 Yj*0.2  62575 

03055  790*  200  ! E TC ( 1 ) ■ 1 0 A Y ♦ J 2 63600 

03056.  79J*  285  IDELTAM  M1VDLMMIETCM)  ...  - - _..  ......  - 63700 

03057  792*  IP  MEX.LE.3)  GO  To  MS  63800 

-03061 794* ICRfKM  U23)«0*ILREW4  l , J3)  ...  - . 63900 

03062  794*  1EX-4  64000 

-0.32-62 79.5* fi2_Z0— 124 . 62.120 

03064  796*  146  J-J+l  64200 

22065 73 J • _ IP.  1 1CREWI  1 , J)  .EQ.O)  GO  TO  162  . _ . _ 6.4300 

03067  790*  J2*J-i  64400 

22070-  799*  DO  147  J3*l  , J2  .....  . 64500 

03073  800*  IP  MCREWM  ,J3)  ,EQ,  ICREW(  I , J)  ) GO  TO  1 46  64600 

23275. 82.1* M 7.  _C2N  Tj.MiLE .6.4700 

03077  002*  GO  To  M8  64000 

23120  . «03*  162  IF  . ( IEX.NE.2)  GO  TO  169  . ...  64900 

03102  804*  IEX»3  65000 

22103 80S* GO  TO  180  65100 

03104  806*  169  IP  (IEX.NE.4)  GO  TO  165  65200 

22424 807* 1ELX«lS 65300 

03107  808*  180  L-INOX(I)  65400 

2.34-10 8 OR* L1-1CRS1L1  ..  . 65500 

03111  810*  L2» I CRN ( L ) 65600 

.034.12 814* L.sCL .............  65700 

03113  812*  00  163  L4.L1.L2  65800 

031  16  81  3* L*L*4- 6.5  8.52. 

031  17  014*  X JUNK ( L )*8,D*HCOST(L4)/(PROO(L4)*TOJ( I ) ) 65900 

234.20 8.LS* 163  JUNK  1 (L  ML4- . - . - . 6 6 000 

03122  816*  00  164  L4«t,L  66300 

02125 817* DO-464.  L5»L4^1 _.  66400 

03130  818*  IP  (XJUNML4)  , L E . X J UNK  ( L 5 ) ) GO  TO  164  66500 

23132 a Las. X*XJUhlK-LL4Ll - - — - 6.6550. 

03133  820*  XJUNK(L4)*XJUNK(L5)  66575 

03J  34 821-*- XJUNIULSMX • 66600- 


PAGE! 

l9 

03  135 

822* 

L3-JUNK  1 (L8 1 

66700 

0 3 13  6 

0 23* 

JUNKliL<4)«JUNKl  (L5) 

- . — 

--662.QQ 

03137 

82*4* 

JUNK  1 ( L5 ) «L3 

67  100 

03  1 *4  0 

825* 

168 

CONTINUE 

6 7-200 

031  <43 

826* 

L I *0 

67300 

03  1 *4*4 

827* 

165 

Ll-Ll+1 

67800 

03  1 *45 

828* 

IF  (Ll  .GT.L)  GO  TO  168 

67500 

031*47.. 

82  9*_ 

00  170  L5-1.6 

— . - . . ... 

- - .... L2A&Q.  . 

03  152 

830* 

IF  1 ICREW( 1 ,L5)  .EQ.O)  GO  TO  275 

67700 

03  1 5*4 

831  * 

IF  ( ICREWM  I .L5)  .EQ.JUNK1  (Ll  ) > GO 

TO  1 65 

_ 67800 

03  156 

832* 

IF  ( ICRFVU  I ,L5>  .EQ.-JUNKi  (Ll  ) ) GO 

TO  165 

67900 

03  160 

8 3. 4* 

170 

CONTJ  NUE 

68000  . — 

03  162 

8 3 u • 

275 

J 1 * JUNK  1 ( L 1 ) 

68100 

03  163 

835* 

J2* JUNK  1(1) 



68150 

03  1 6*4 

836* 

IF  ( X JUNK (L  1 ) ,LT  . 1 , 15*X JUNK  ( 1)  ) 

GO  TO  172 

66200 

03  1 66 

837* 

1 68 

J I NO  {!)>)- 

68300 

03  167 

838* 

IF  ( IEX.LE.3)  GO  TO  160 

68800 

03J71 

839* 

GO  TO  1 7 1 



68500 

03  172 

880* 

160 

IF  ( I E X * G T • 3 ) GO  TO  171 

68600 

031  7*4 

88  1 * 

I2.I2M 



- -663X10-  - 

03  175 

8 8 2 * 

IF  (12.  LE, 1X10)  GO  TO  178 

68800 

03177 

8 8 3* 

179 

I F X * <4 

68900 

03200 

88*4* 

I S I G = 0 

69000 

0320  1 

885* 

12*1 

— 69100-  - 

03202 

886* 

181 

I « JRANK  ( I 2 ) 

69200 

03203 

887* 

- IF41VMI6U  I > »6T,0)  GO  TO  171 

- - ■ - . . ... 

. 69-300 

03205 

888* 

TF({JVMJN(  I )*IETC(  I)  J.LE.O)  GO  TO 

171 

69500 

03207 

8*49* 

IF  ( JIN0(  I ) • ME « 0 ) GO  TO  171 

69500 

032  11 

850* 

J*  1 

69600 

0321  2 

851  * 

GO  TO  188 

6 9 700 

032  1 3 

852* 

171 

12*12*1 

69800 

0321*4 

853* 

IF  112.LE-.IX10)  GO  TO  181 



-69  9.00 

032  16 

8 5 *4  • 

IF  ( IsIG.NE.O)  GO  TO  179 

70000 

03216 

855* 

C JOB 

X I N ITI ALLY**CONVERT  TO  MAN  HOURS 

70100 

03220 

856* 

DXL»NDL*B 

70200 

0322  1 

857*. 

DXE  1 *NDE  1 *8 

. 7.0300  

03222 

858* 

DXF2«nDF2*8 

70800 

03223 

859* 

DXE3*NDE3*8  

zooon 

0322« 

860* 

DO  2008  1 *1  , ! X8 

70600 

03227 

86  1* 

2008 

NDEQT ( I 1 *8*NDEQT ( I ) 

- , 70610 

03231 

862* 

!SlG*n 

71300 

0323  1 

863* 

c indicates  ranking  by  travel  time  is  not  yet  done 

........  7 1800 

03232 

R 6 **  * 

I 2-  1 

71500 

03232 

8 6 5*  . 

-C  DO  1 

-OOP  OVER  ALL  JOBS  TO  SPOT  EMERGENCIES 

74600. 

0 3 2 3 3 

866* 

3006 

DPR ( 1 2 ) *0 

71700 

0323*4 

867* 

Y= I L AB  ( 1 ) 

74-8  00  - - 

0 3 2 3 5 

868* 

X 1 ■ I EO 1 ( 1 ) 

7 1 900 

03236 

869* 

X 2 * I E 0 2 t 1 ) 

7-2000 

03237 

870* 

X 3 * I E 0 3 ( 1 ) 

72100 

032*40 

87  1 * 

I * I 2 

. - 

72-200 

032*4  1 

872* 

J* I VT YP ( I ) 

72300 

032*42 

873* 

IF  ( JIND(  I)  « E Q » 9 ) GO  TO  222 

72600 

032*4*4 

8 7 *4  • 

IF  (J.NE.1000)  GO  TO  2?2 

73000 

032*46 

875* 

J*  indx ( i ) 

73350 

032*47 

876* 

T I MEeVPR ( I ) *SUT ( J ) 

73800 

03250 

877* 

TIMET  = TIME*2*TTJ(  I 1 

...  - . . _ . 

...  . 20.400 

0325  1 

878* 

IFC  IDTE(  I 1 .GT.IOAY)  GO  TO  22 2 

73500 

03253  - 

8 79*- 

K1»IE0S(  1 ) 

. 

_ ...  3-3930 
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03259  880*  K2-IEQNU) 

03 255 88]  • _ PQ  .?n&*_.K.3.»KJ  ,K2 . 

032*0  882*  K9«1EQ(K3) 

JL22A1 U3» IT  LN0E^UJ?HJ_.l.IxI_NQl!«;3)*TlMEj  ,60  TO.  203 

032*3  esq*  200*  continue 

032*5 8 8 5 • _J  r (OXL.LT.VTIHE) SO  TO  203... 

032*7  88**  IF  ( X 1 •TJME.LE.OXE  l ) 60  TO  200 

.01211 My JL2«»X2±X1-DIE1 

03272  888*  XJbDXEI 

03273  889* - 200  I F 4 X 2*T-l  ME  . LE  « 0 X£24-  jS3  T XL  204  . 

03275  890*  X3-X3+X2-0XE2 

.03273 894* 32*0X£2 

03277  8*2*  20  1 IF  ( X 3 • T I ME , 6 T , 0 X E 3 ) 60  TO  203 

03301  893* 202  DO-  2.04-0-  JM« I *3 

03309  899*  WUA ( M , l ) -WUA < M , 1 ) *T J ME 

-033X15 89&* SUH(m,  l ) *SlH < M , 1X*T I ME • Y 1 

0330*  89**  SEIH(M#1 )»SE1H(M, i )*TIME*XI 

03307 a 97* SE2H<  m , l 1 «SE2H ( Mt4  ) *T  J ME*X2 

03310  898*  SE3H ( M , l ) *5E3H ( M , i ) *T I ME*X3 

03311  015* I C L ) ■ T49  X*  ( Y * CL *JL1  a£Jl4*  X2* CE-2XX  3 *4 L3 X+J CJ.1  M « LX-  

03312  900*  V P R ( J ) ■ 0 • 0 

4J3313 90-L*- Jl-NX.  I 

03319  902*  1 V T YP  ( I )»0 

333315 903* DO- 2003- U»K1  *142 .. _ . 

03320  909*  IF  ( I N 0 ( N ) , E Q , 0 ) 60  TO  2008 

03322  305*- K3J-1EQ1N1 

03323  90**  EQH(m,  1 ,K3)«EQH{H,  l , K 3 ) ♦ I N 0 ( N ) • T I M E 

03329  907*  EQT0TXM-*  14  *JLQ_IOT_(  M»1)*IN0(N)*TIME*EQC(K3) 

03325  900*  NO  EOT (K3)*NDEQT ( K3  ) * 1 NO ( N ) *TJMET 

0332*_  — 90-9* 2008  CO-NUNUE - - _ ....... 

03330  910*  2010  CONTINUE 

03332  9 LX* -DJtL9f)XL-3*.T3iI£-T 

03333  912*  DXE1«DXE1*X1*TIMET 

03339 9X3* ..  D XE2»0-XE2-X2.* T 1 M£T  . 

03335  9 J 9 • 0XE3*0XE3-X3*TIMET 

.0333*  - 9 IS*  6 0 1.0.  2 32 

03337  9JA*  203  IF  (ISI6.NE.0l  GO  TO  20* 

.01337 ?_L7* c check  to  see  if  ranking  is  required ..  . 

03391  918*  ISI6-1 

113392 9X9* 00  209  . J1*X»JJLXQ _ 

03395  920*  JUNKl(Jl)*JI 

-0339-4 924* 209-  XJUNK4  111  *T  t J U 11  - 

0339*  922*  C ORIGINAL  INVENTORY  INDEX  AND  T R A V WL  TIM£ 

03350  929*  c Rank  on  travel  time 

.03353 920* DOl  203  — J2*XUXX  10  — 

0335*  92**  J9 ■ JUNK  1 ( J l ) 

-03357  — 927* J-5bJUnK11  J2) ... 

033*0  928*  IF  (XJUNKI J9) ,LE.XJUNK( J5) ) GO  TO  205 

033*3  930*  JUNKl  ( J2)*JUNK ( J1  ) 

03389- 93  1 * JUNK  1-1  Ji  1*-J3 

033*5  932*  205  CONTINUE 

03370-  _ 933* 20*  00-  2 13  XlaX-^XXXO __ 

03370  939*  C CHECK  FOR  CREW 

03373 530*- 02  * JUNXX1J-U - — - - - - 

03379  93**  IF  ( JIND< J2> .EQ.9)  GO  TO  218 

0331* -93.7 • DO. -240 J3»l+*_-  - _ - - 


73980 

73990 

79000 
79010 
79020 
_ .79100 

79200 

793.00 

79900 

-7.9  SQO 

79*00 

Z9700 

79800 

7 9 8 9 Q 

79850 
7 9 8*0. 
79870 
— 79880 
79900 

75910 

799  1 5 
79914 
7991  7 
7 5920 
79930 

— 7.9  9 90. 

79950 
79960 
79970 
79980 
79990 
_ 75900 
75500 
75600 
75700 
76  100 
76200 

_ _ 7.6.300 

76900 

76500 

76600 

76700 

76800 

76900 

77000 

77100 

77050 

77075 

77200 

7 7.300. 

77500 
77700 
77900 
78600 
78700 
. ...  78.800 

78900 
79000 
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03376 

_Q3*l61 

03*402 
53*405  — 
0 3 <4  07 
03*412 
03*4  1 *4 
0 13L6_  - 
03*4  1 6 
0 3*447  — 
03*42  1 
03*4  22 
03*423 
0544  23 
03*427 
05*451  _ 
03*433 
05*13*4 — 
03*436 
03*434  - 
03*4*4  0 
-03*4*4  2 - 
03*4*4*4 
03*4  36  — 
0 3 *4  5 1 
03*45  2 — 
03*455 
03*4  54 
03*460 
03*4  62  - 
03*463 
. 0344544.-.- 
03*466 
03*4  67  - 

03*47  1 
0 3*4  72— 
03*473 
03*4  7*4 
03*475 
03*477 

03502 

03503  _ 
03505 

. 03502.  _ 
035  1 0 
03512 
035  1 7 
0351*4 

0351  6 
03520 . 

0352  1 
0 3 5 2 *4 
03525 
03527 
03530 
03551— 
03532 

-03533— 


938*  C AUXILIARY  CREW  CHECK  79100 

9 35* 3*f.7»53 79200 

9*40*  IF  ( ICREW(  J2,  J*4  ) ) 207,210,218  79300 

231* 207-  -4  F 43*4  »-EQ-*64— 60  TO— 224  ---  - 79*400 

9*42*  DO  208  J5«J*4,5  79500 

9*43*-  —IF  { I CREW  LJ2  .494-tE-Q  , ICREW ( J2  » J5* 1 ) ) -GO  -TO— 210 79-AOQ 

9 *4*4 • 208  CONTINUE  79700 

9*45* 221  _45.«- 4CS.O!  442+464 79800 

996*  C CREW  HAS  NOT  BEEN  CHECKED  79900 

9. *4  7 * 13-47  X . 6 E . T I NE  1 — &O-T0  2 1 4 — 80003 

9*48*  J6-IE0SIJ5)  80100 

9*49*- 47*  I EQN4-J54 — — 50200 

950*  DO  209  J8-J6.J7  80300 

951 * 3 9-58— 8-0*100 

952*  IF  ( JE01 J8) ,EQ.2)  QO  TO  211  80500 

-535* 2-0-9 — C0N34-N-UE 80600 

95*4*  GO  TO  210  807Q0 

_ J955* 21  1 _42 (4  ft*  5L3313S 1 *OXU  -,4  T . <7.0*T!  ME  15 — &0-T  0 2 10 - 80800 

956*  IF  ( ( 8 * { IE01 ( J51  + IE021 J5»*IE03( J5) )♦  0 X E 1 *0 XE2  + 0 XE 3 1 . GE , T I ME > GO  T 80900 

- 957  * 1-0 — 24-9 84000 

958*  IF  ( ( IE01 (J5)*!E02(J5)*IE03(J5) I.LT.t ) GO  TO  210  81100 

— 959-* 210  C0-N-T1  NllE <4  200 

960*  210  CONTINUE  81300 

.964.*  00  -54-8 34*4+4X40 84-300 

962*  J2«JUNK1(J1)  81500 

_9-65*  — - 00  — 2-9-0— X4»4-«-6- 54500 

96*4*  J *4  ■ K 1 81700 

. 965*  21*4  IF  4 ICREW(J2»J«).LE,01  GO  TO  318  81800-  — 

966*  IF  ( J*4 . EQ  « 1 ) GO  TO  220  81900 

- 967*  J6-JM-1  - -82000 

968*  J5*  l 82100 

. 9 69  *~ 248-45  31C-R5W5J2-+351*8(3-*4-CREW  (32-,4<4  M — GO  -TO-  31ft 52200 

970*  J5" J5 ♦ 1 82300 

97i*  1F(J5.6T.J6>  GO  TO  220  - 52*400 

972*  GO  TO  215  82500 

973* 2 20  J5-lC8EW4J2Wn - — - 82600 

97*4*  J6*IEQS(JS)  82700 

.975* J 7 *450134454 ~ ~ - — 82ft00 

976*  IF  (TX.GE.TIME)  GO  TO  217  ,82900 

.9  77*  DO  216  4fl*J&» 47  - - - - — 830.00 

978*  J 9 ■ J 8 83100 

979*  IF  ( JEQ(  J9)  ,EQ,1  ) GO  TO  217  _ ...  .8  32QQ  

980*  216  CONTINUE  83300 

9.8 i* GO..TO  21 B - 6.3300 

982*  217  IF  ( (8*1LAB< J51+DXL) ,LT. (2,0*TIME) ) GO  TO  290  83500 

983*  IF.  ( ( 8*  ( I E04  ( J5  1 ♦ 1502  ( 45J  * J E03  ( J5  ) ) ♦ DXEl+DXE2*0X£3)«GE.TIME)  GO  T .83.600 

98*4*  10  2 1 9 83700 

985*.  290  .CONTINUE  83800 

986*  318  CONTINUE  83900 

987* - J PRINT*  110 . 53QJ0Q 

988*  PRINT  1000  , IPRINT  8*U00 

989*  222  12*12*1  — 83300 

99p*  IF(  I2.LE.IX10)  GO  TO  3006  8*4350 

99  1* GO  TO  223  - ...  - - -63375. 


992*  219  X1*T0J(  I J-TJME  91*400 

-995*  OPRj 44  *OPR  ( 14*34*gft00  1454—  91500. 

994*  COST(  I )*COST( 1 )»X1*HC0ST(J5)  91600 

- 995* IF  ( JH  rE-Q-,64 GO  - TO  213 91700 
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03535 

03590 

. J 

-O  fvj 

O'  0*1 

o*  o* 

03592 

03593 

998* 

999* 

03599 

1 000* 

03595 

1001* 

03596 

1 002* 

03  552-- 

1003* 

00  212  J5*J9,5 

212  1 CREW( J2.J5)*ICREW( J2.J5»1 1 

213  ! CREW ( J2 , 6 ) *0 

T X " T X iXlME  * I N 0 ( J 9 4 

DXL«0XL*TlME* ILAB ( J5) 

DXEi^.XXitJXMEflEjlLL^ 

DXE2*DXE2*TIME*IE02(JS) 
DXE3»DXE3+T1ME*IE03(J5) 


03550  l 00 *1  • 

03552  1006* 

03552 1007  * 

03555  1008* 

-01553! 1-QQ9-* — . 

03557  1010* 

03550 10  l|t — 


GO  TO  202 

22 3 IS  4 5-0 

00  763  1-1  .1X10 

_C  00  OVER  ALU  J5R5  IN  1M VECTOR Y 

IF  ( J I NO ( I 1 ,EQ,9)  GO  TO  7*3 

JaJJ4M-U-4 

C TYPE  INDEX  OF  I TH  JOB 
DO  764  1 ,4 


03550  1012* 

-01543 1-044*- 

03569  101<t» 

03545 UU5JL 


C BASIC  CREW  LIST  OF  l TH  JOB 

L*ICRE* ( I i K 1 

IF  ( L t EQ  • 0 ) 60  TO  753 

-LX-  -LL-«-Ll-»-0-l-  L**L 


03570  1016* 

03574 UU4ML 

0357]  10)8* 


Z*TOj( I ) 

JL* ZtPROOUJ- 


03573 

03575 


1020* 
1-02  1. 1 


DAILY  PRODUCTION 

VPRU  ) » VPR<  I ) ml 

TIME«OtO 

LE14LPR<  1 1 ) H IB 


1120,1130 


03577  1022* 

03500 1-024* 

03601  102m* 


03603  1026* 

-113605 4-027-*- 

03605  1028* 


1118  T!ME»*VPR(I)/PROD(L> 
VPR ( 4 ) «0 , 0 


C PR (I ) *0,0 
J 1 N X«  I 


-JLa_ 


Z*TO J ( I ) • T 1 ME 
ZtPROO(L) 


GO  TO  1122 

44-20  CPRM  «□ 

03607  1030*  GO  TO  1122 

-01410 10  Hi- L130  C PR(Il»CPRn  )*X 

0361  1 1032*  1 122  DO  761  M*l  ,3 

036*1  1033* mA(M,J>»WUA(HtJ)*X. 


03615 

03616- 


1038* 

4-035* 


03617 

-03620- 

03621 

-016-21- 


1036* 

lOlXJL 

1038* 

1.01-9* 


SLH(M,J)«SLH(M,  J)*ILAB(U*Z 
SE2H(M,J>»SE2H<m!jU!E0  2(L>*Z 

TCL ( M , J ) "TCL ( M , J ) ♦ Z* ( I LAB  ( L ) *CL* I EO  1 ( L ) *CE 1 ♦ 1 E0  2 ( L ) *CE2* I E03 ( 

1 L ) *CE31 


03622  1010* 


N 1 ■ I EQS ( L ) 


03629 

— 1 U-9_l_* 

1012* 

NZS1EQN  (LJ - . 

00  760  N-N1.N2 

03627 

1093* 

N3* IFO ( N ) 

03630 

1099* 

EQH(m,  J,N3)-EQH(M, J,N3)*!N0(N)*Z 

03631 

--10.95* 

7 6 fl  EQTQT1M.  J ) »EQT0T t H . J ) + I NO ( Ml » ZtEQC  1N31 

03633  10R6* 

03637  1 0*48* 

_Q16il2 l-OXiX 

0361*1  1050* 

0361.6 1051* 


761  CONTINUE 


DO 

IF 


650  N l ■ 1 ,1X10 
-4-  J,M£.  INDX1NJ-4-1- 


GQ  TO  650 


IF 

_LX 


(CPR(N1),LE.O,O.OR,JIND(N1),EQ,9,OR,!ETC 
( T IME.LE.9.n*TT  J l N 1 1 GQ  TO  .6.50 


03650 

03651 


1052* 

-4-05.4*- 


Z»TImE"2*TTJ(N1 ) 
J4ME-Z 


9 1800 
_?1 900_ 
92000 
92100 
92200 
92300 
92100 
9250  0 
9 2 600 
811.00 
89500 
-.8 140-0 
81700 

-598-0  Q 

81900 
85000  - _ 
85100 
8 5200  - 
85300 

-8  5900 

85150 
85500  - 
85600 
8S6Q2-  - 

85605 

-8544-0 

85620 
85630 
85635 
.856-90 
85700 

. 85  Z10 

85720 
85735 
8 5 7 U 0 
85750 
85800 

.1570JJ 

86000 
86  1 0 0 
86200 
-86300 
86900 

8650-0 

86600 
867Q0 
86800 
8 6900 
87000 

-17100 

87200 

— - 87205  .— 

A 87205 

. - - 8 07205 

(Nl).EO.lOAY)  GO  TO  650  C 87205 

CC4Z205 

087205 

OA  87205 
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03*52 
0 3 6 5 3- 
0365*4 
03655 
03*60 
03*6  1 
03**2 
03661  „ 
03*6*4 
03665 
0366* 
03*67 
0 3*70 
0367  1 
03672 
03*73 — 
0 3 6 7 *4 

03675  - 

03676 
03*77- 

0370  1 
03  7 0 2 
03703 
0370*4 
03705 
037  0 6 — 
03707 
03710  - 

0371  3 
0371*4 
037  15 
037  17 

0372  1 
03723  - 
0372*4 

03726 

03727 
03732  - 
0373*4 
03735 
03737 
03737 
037*40 
02  7*41 
037*42 
037*43 
037*4*4 

0 3 7 *«  5 
037*47 

03751 

03752 
-03753— 

0375*4 

03756 

03757 
0376  0 — 
03762 

03-763 — 


2 3 


1 05*4* 

. 1055* 

1 056* 

1 057* 

1 050* 

1 059* 

1 060* 
1061* 

1 062* 
106  3* 

1 06*4* 
1065* 
1066* 

. 1 067* - 
1 068* 
106  9 * 

l n7o* 

- 1 0 7 \ * 
1072* 
1073* 

1 07*4* 
1075* 

1 076* 
1077* 
1078* 

1079* 


X*Z*PR0D ( L > 

VPR  t N 1 .)  » VPR-1N1  ) 3.X  

Z 1 *0,0 

IF  (VPR  (Nil)  65  1,652,653- 

651  Z1**VPR(NI )/PR0D(L> 

VPR(N1)*0.0  . . 

C P R ( N 1 )*0,0 

1INX.«N1_ , 

Z»TIME*Z! 

time-time^z  

X*Z*PR00 (l> 

GO  To  1 12  2 

652  C P R ( N 1 1*0.0 

J I NX.Nl 

TIME.0,0 

— 60  T©  1122 

653  C P R ( N 1 1 *CPR ( N J )*X 

T !ME»0,0 — 

GO  TO  1122 

6 5 0 - C 0 N T | N4)£ 

DXL*DXL+TIME*ILAB(L) 

0 X E l.O  XF  l*  T 1 M-E  • J E 0-1-4  L-4 

0XE2«DXE2*TINE*IE02(L) 
DXE3«03E3*T1ME*IE03(L)  

1 CREW ( I ,K ) *0 

N 1*1  E 3-514  ) — 


D087205 

£-32-205 

F 87205 

5 8 7205 

H 87205 

I 87205 

J 87205 

1337  20  5 

K 8 7 205 

KK87205 

L8720S 

M .31205- 

N 87205 

MN372QS 

NNN87205 


0 37205 

P 87205 


87210 
332  I 3 
87220 


87225 

87230 


1 080* 
l oa  i * 
1 082* 
1083* 
108*4* 
1 085* 
1086* 
1087* 
1 088* 
1089* 


N2* I EQN ( L 1 

00  1 1 26  N»N  i ,N2  — - 

N 3 * I E 0 ( N ) 

NDEQT(N31*  NO  EQT4N3)*TIME*IN0(  N-) 

1 I 26  CONTINUE 

.762  CONTJ  N-UE  — - 

763  CONTINUE 

JSIG-1  - - - 

761!  IF  (JSIG.EQ.O)  GO  TO  2003 

JSIG.O  - 


1 090*  DO  7610  1*1,1X10 

10  9 1*.  IF  ( CPR  ( U , LE--.Q.O.OR  , aiND-(-U.*XCU-91  — fiO— T 0-76  1 0-  - 


1092* 
1093* 
1 09*4* 
1095* 
1 096* 
1097* 

J* 1 CREW ( 1,1) 

IF  (J.EQ.O)  GO  TO  7610  - — 

Z**4*TT  J ( 1 ) 

C MINIMUM  TIME  acceptable 
L • I L A B ( J ) 

X 1 * I F 0 1 ( J ) _ . 

1 098* 

X2-IE021 J) 

1099* 

X 3 ■ I E03 ( J)  - 

1 1 00* 

x-nxu/l 

1101* 

!F(  X.LTtZ)  GO  TO  7610 ... 

1 102* 

IF  (X.GT.8.0)  X*0.O 

J10  3* 

Y 1 *DXE  1 . ..  - . 

1 l 0*4* 

T2-DXE2 

1105*  _ 

T 3 *D  X E 3 

1 106* 

7601 

IF  (X1*X.LT.Y1  ) GO  TO  7600 

1 107* 

X2-X2  + X1--Y1  

1 108* 

XI-Yl 

1 109* 

7600 

. I F .-l-X  2-*-X  • L T «.  Y 2 ) 30— T O— 760  2 

1110* 

X3*X3*X2-Y2 

113  4* 



X2-Y7 

87250 

87260 

87270 

37230 

87290 

37.300 

87305 

A 83705  - - 


87305000 

87305010 

873.05020 

87305030 

373050*40 

87305050 

87305060 

87305070 

87305090 

_ 87305100 

873051 10 

87305120- 

87305 1 30 

87305  1 *40 

87305150 

8 7305160 


87305170 

87305J30 

87305190 

87305210 
37305220 
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2 * 


03764 

1112* 

03766 

-I  I 1 3* 

03767 

1114* 

017,71  . 

-1115* 

03772 

1116* 

03773 

.J  11  7 • 

03774 

1118* 

03777- 

-ills* ... 

04000 

1 1 20* 

JQ-40Q2 

-1-1  21*. 

04003 

1 l 22* 

£4005 

1-123*  --  - 

04007 

1124* 

0.4O1Q- 

4125*-  - 

040  1 1 

1 1 26* 

04012  - 

-U27«- 

040  1 3 

11  28* 

£4  DIE 

1X29.4 — 

0401  6 

1 1 30* 

£4017 1134* 

04020 

1132* 

£40  23 

113  4* 

04024 

1 134* 

£4025 

-4135-*  - 

04026 

1 136* 

J14  0ZJ 1127* 

04030 

1 I 3fl* 

04031- 

4139* 

04034 

1 140* 

£-4036 

. 414  1 * 

04037 

1 142* 

.£££.40. 

—LI  43 • 

04041 

1 1 4*** 

£4042 

. 1145*  - 

04045 

1 146* 

£4£46 

-1147* 

04050 

1 140* 

-0405j._ 

.J.14.9* 

04052 

1 1 50* 

J34Q53-. 

-1151* 

04054 

1152* 

0405S- 

„ J J 5 3 _• 

04056 

1 154* 

H4£5  7 

-1155* 

04060 

1166* 

0 4Q62 

1157*  ..  ; 

04064 

1 150* 

04067  . 

1 159* 

0407  1 

1 160* 

04072 

116  1* 

04073 

1162*  2 ( 

0 407.5 1 163* 

04077 

1 164* 

04402 

4 14 5 *~  - - 

04103 

1 1 66* 

04  1 04 

-4467* 

04  105 

1160*  ; 

04  107- 

-146.9* 

7602  IF  (X3*X.LT,Y3)  GO  TO  7404 

Z1-T3/X3  __ 

7604  IT  (Zl.LT.Z)  GO  TO  7610 
X -Z  1 

K I ■ I E Q S ( J ) 

K2-IEQN( J) 

DO  7620  K3-K  1 ,K2 

M»lNDJ$JJ<3J. 

I F ( NDEQT ( K4  ) . GE  . I NO ( K3 > *X ) GO  TO  7620 
X« NDEQT  C K4 ) / INO { K3) 

IF  ( X ilT,  Z ) GO  TO  76  10 

7-620  CONTINUE  _ 

JSIG-1 

K • I NOX  ( I)  _ _ . ...  

XX«X-2*TTJ( I ) 

Z»PBOD  I Jl*4X ...  

IF  (Z,LT,VPR{ I) ) GO  TO  7622 
XX-VPR1  I ) /PROD ( J) 

X»XX*Z*7TJ ( I ) 

ZaVERi  II  - _ 

7622  DO  7624  *■  1 , 3 

-jrUJUM»K)»WUA(M,Kl*Z  . _ 

SLH(M,K)»SLH(M,K)*L*XX 
SEIH ( M |K ) *SE 1H LM  ,K  ) *X J *XX 
SE2H{M,K)»SE2H(M,k)*X2*XX 

-SE4H  «.SE3  H-CN  ^ Ki  *JL3  * XX. 

TCL I M ,K )«TCL (H  tK  ) *XX* (L*CL*X  1 *CE 1 ♦X2*CE2*X3* 
DO  7624  - N»Kl*K2  _ 

IF  { INO(N)  tEQ.O>  GO  TO  76?4 
-K3*4EQ4N» 

EQH(m,K|K3)«EQH(M,K,K3)MN0IN)*XX 

£0IQTJM,KJjESTJ3T1M4K)*INCUNJ-*XX-*EqC4.JC3) 

NDEOT  ( < 3 ) ■ N DE  Q T ( K 3 ) «■  X * I NO  ( N ) 

7624  CONTINUE 

VPR( 1 ) » V PR ( 1 J-Z-.OOOOl 

IF  ( VPR I I ) .GT.0.0  ) GO.  TO  7626 

C P R ( I )«0.0 

LV.T  YPLLL)  iQ  

JINX. j 

. _ . VPRj  LJ  ■0  *_0  

7626  DXL«0XL-*L*X 
_ D X E 1 « D X E I " X 1 • X 
DXE2«DXE2-X2«X 

D_X£3-«£.X£1^X3.*X __ 

7610  CONTINUE 

2001__LF_l  jSI.Gt_NE.tOL  GO  T0.76H 
DO  20030  L L * 1 , I X l 0 

_1F  UDTELLLU  tGTaJDAY  J GO.  TO  20030 
J«I NOX ( LL  > 

y»uc  i i , j)j»jAU£ii  i.jj-*ypR.iH.i 

20030  CONTINUE 

1 F 1 ISDAY  .6T.5.QR,  ID  AT  »EQ-»  NWQL  LIHQL44 
DO  2002  M.  1 , 3 

_ X4L4M4»XJL4N4*£XL  - - 

XJE1 (M).XJEl (M)*0XE1 

. XJF?fH)»XJF2(M)*DXE2 

2002  XJE3(M).XJE3<M)*DXE3 
7 7 0 — Ha  I 


CE-n 


GO— TO-  770 


87305230 

87305240 

87305250 

87305260 

87305280 

87305290 

87305300 

87305310 

87305320 

87305330 

87305340 

£7,305350. 

87305360 

.87  305.320 

87305380 
- 87305390 
87305400 

87305410 

87305420 

_fi-ZO.Q54.3Q_ 

87305440 
...  87305450 
87305460 
87305470 
87305480 

0-7-205-4  90- 

87305500 
873055-10 
87305520 
8 7-30  5 53  0 
87305540 

8.73  0.5550.. 

87305560 
87305570 
87305580 
87305590 
87305600 
_.8-7_3QL5  6-L0._ 
87305615 
87305620 
87305630 
87305640 
87305650 

17.305.6  6.0- 

87305670 

87305680 

A n 8 7 306 
AS  7 3 0 6. 

8 7 TO 7 
57.3.0-6- 


87309 
A8J309 

87310 
- 8-7  320 

87330 
-HZJ.4JL 
87350 
-8  7.800 
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09110  l 1 7 D * IFJNHOLnHOU.EO.IDAY)  JH0L-1H0L+1  87805 

Q *♦  1 (2  1 1 74.*  . . _ IF.  U S D A-Y ^LT . 6«  AND  .XHOL . ME .44- SO  TQ—7X1 87810 

0 8 1 1 2 11  72*  C OFF  DAY  87820 

09119  1173*  _ IF  (TClUtSHlCLl  i^Xl+TCl  (4 -t-*l»LE»0»04 *0  TO  772 *7*10 

0*4116  117m*  771  M«1  87  8 HO 

OH  1 1 7 1 175*  --  00  1 1 10  K*2,IX5 - 87860 

0H122  1176*  1110  WUP  ( 1 ,K  ) «WUP  ( 1 ,K  1 -WiJA  (1  ,K)  87880 

0 81  28 1 1 7 7-* — ...  _LE  J-LOIJXL 1-2  ).*£  Q.*0  1 -G0._JLfl-77.2 87890 

08126  1178*  PRINT  970  ( I WE E K , D WE E K ( I S D A Y ) , I D A Y , I * ( I D A Y * 3 ) > 88000 

0 H 1 3*4  1 1 79*  773  IF  < I P L A N 04  60  TO— 1142 8*0*0- 

0*4136  1180*  DO  1106  K«l,lX5  88070 

0 H 1 *i  l 11*1*  1106  WUP<1  r*l-aWPt2»Kl 8*0*0 

08  1 *43  1 1 82*  1 1 1 2 PRINT  930  fJNVSUM)  88100 

08  1*4.6  1183*  PRINT  97  1 - 88480 

08(50  1188*  PRINT  972  88200 

08152  -1  185*  1516*5  *8*00 

08153  1186*  X!«0,0  88810 

08)  5« M *7* X 2*0,0 88820  

08155  1188*  DO  777  1*1 ,1X5  88500 

0*4)  60  - 1 1 89* X « T.CL  <4l»44*E 0 TO T4-M-.  I .) *8*00 

08161  11 90*  X 1 *X 1 +X  88610 

0*1  62  119  1*  Z»«UC4M-*4-)-*X_ _ **620 

0*4  1 63  1 1 92*  IF  (Z.LE.O.O)  GO  TO  777  88700 

08165  1 1 93*  Y«SLHl*rn^*ElH4M-,I-L*S**>l4M»41*SE*W4Mlrn ***00 

08166  1!9m*  X 2 * X 2 * Y 88810 

08  167-  4 19s*  4f.414-14.NW-) *0-70—775 5*900 

08(71  1196*  PRINT  975  89000 

08  173  1 197*  IS  1**0 8*100 

08J78  119e*  775  PRINT  9 7 3 ( I , ! TT YP (|  1 , HT  l (!»  . HT 2 ( 1 1 , SLH < M , I ) , SE  1 H { M ' I » , SE2H ( M , I ) , SE  89200 

0.8)78  — 1499*  13H(M,I  l,Y,TCL(MtI  ).,  X , «/U*4*,  l ) *UA4M  r 14  (4L,  J44 — 8*300 

08218  120o*  !S!6«ISIG*1  89800 

08745-  120!-*  777- C0NTI444E 8*500 

0821  7 1202*  X 3 » 0 . 0 89510 

08220-4203*  X 8*0  » 0 —8*54* 

0822  1 1208*  X 5 * 0 » 0 895J8 

-08222  1205*  X6»0.0  *9516 

08?23  1206*  X 7 *0 . 0 89518 

08228 1207-*-  - - DO  1 088  -4*4_*-4X-S- 89520 

08227  1206*  X3-X3+SLH ( M , ! ) 89525 

08230  1209*  X8«X8*SE  1 H tM  .1  ) *95.10 

08231  1210*  X5*X5*SE2H (M , t ) 89535 

08232  121  1-*  ..  X6-X6  + SE3H  ( M » 1 ) \L  69580 

08233  1212*  X7*X7*TCL ( M , I ) 89585 

418738. 1213* 40.88_ CONT  I NUE 89550 

08236  12  1 8*  K 1 * X 1 + 0 . 5 89555 

08237  1215*  K2*X2*0.5  69560 

08280  1216*  K3*X3*0»5  89565 

0828  1 1217*  K 8*X8*0  • 5 - *9570 

08282  1218*  K5»X5*0.5  89575 

08.283  -1219*  <6* X 6 *0.5 *9550 

08288  1220*  K7*X7+0,5  89585 

09-2  85  -4221*  PRINT  987  t X 8 , x 5 ,4t4  . < 2 ,K  7 , K44 *9590 

0 8 256  1222*  X*XJL(M)+XJE1  <M)*-XJE2(M)*XJE3(M)  89600 

082  5 7—  1223*  Y«CL*XJL<M1-*CEI*XJ£1  1 M4-*CE2  * X4E24M)  *CE4*X4e*4*4 -8*640 

08260  1228*  PRINT  988  ( X JL ( M ) , X JE l ( M ) , X JE2  ( M ) , X JE 3 ( H ) , X , Y ) 89620 

-QM770  —42 25 * IF  (H,EQ.4  ) — -PR4N-T—94M-4-P4YR0U 89625 

09278  1226*  PRINT  950  89630 

09276 1227* P-R  4N-7-  97* 
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03300 

03300 


03304 

0330?- 


1226 
112JL 
1230 
1 211 


03307 

03312 


1232 

1233 


03313 

03314 


1233 

123* 


03317  1236 

03323  1238 

09328 1239 


03336 

03337 


1230 

-1.234- 


03331  1232 

03335  1233 

03351  1236 

03  352 12.3  7 


03353  1238 

03356  1250 

03367  1252 

-03120 1251 


PRINT  980  ( 1EQ! ( 1)  , !•!  , 1X3  1 

C COLUMN  ME  APINGS  FOR  EQ  UIPHENT  TYPE  S_ 

ISIG.5 

OQ 7 82 !»1  tlXL5 

C ROWS  OR  JOB  TYPES 

IF.  ULSXQLi.M  1 1 ULE-»0jlQ1 GO  JO.  782 

IF  (ISIG.LT.5)  G 0 TO  780 

J5.IjGjlQ _ 


PRINT  975 

_28L0 DO  7.8414- K.-U1X3 

7801  JUNKl  (K)-EQH(M,!  ,K)*0.5 

PRINT  982— IITTJPI  1 > ,EQJPT4»,1  L»J  JUNKlJIU ,<■ U 1X3  ) ) 


I S I G» 1 S I G*  1 

-2  52  jCDJNIJNUE 

DO  785  K ■ 1 
-S-UMbQ  t 0 


1X3 


SUMIbO.O 
DO  703 1 ■!  1 1 XS 


783 


SUH1bSUM1*EQT0T(M,  I 1 
. SUM«lUM*S-flH-LM-+-L»JS-4 


JUNK i (K)«SUM*,5 

-JUN<2U-)-«5UMi*-»S 

785  CONTINUE 

-PPLNJ.-48-3 — (.  JUNX21 1LU-J-DN.K4J  K-Lj-K-s4  ,4  X-3.1  ) 

772  I 2" 1 

LI  *4 


90030 
9..QQ3  0- 


03371  1253 


03375  1254* 

09377  12S7»-- 

03901  1258* 

.09102 L2iS_ 


774 


I F ( IPLAN.EQ.  1 ) GO  TO  1028 

lf<  H»ME-»44 GO -JO  77  3 

IF ( ISDAY.EQ.7  ) GO  TO  776 
-If-  4-1-0A-J-*  NE  » I YEA.R4  GO -TQ-.X410— 
Kl-1 

K 2 b 1 0 A Y 


JE.X«- 


90035 
90050- 
90060 
90070  - 

90072 

90073 


09303  1260 

099P5 1261 


03910  1242 


1631 


09913 
.0.19 1 5 


1263 

1245 


IF  (I0AY.GT.7)  Kl-lDAY-ISOAY+1 

-DO LA-34. I * 1 44  X5 

RUC (2,1)  -RUC (1,1) 

-Ma.2 __ _ 

IF ( I OUT ( 18)  • EQ  « 0 ) GO  TO  7730 
PRINT  983(1  PEERj-N-M-UL-Ij-Li-j 


90078 

.90082— 

90083 

90050 

90098 

9.009.9-. 


09925 

.0.4924. 


1266 

1247 


7730  l REEK » I REEK ♦ 1 
GO  TO  77  3- 


A90099 
9D4J1Q 


09927 

09.431 


1248 

1249 


779 


09933 

04434., 


1270 
.12  71 


I F ( N , EQ • 3 ) STOP 

1EL  _UD-AYjJ.IlLYEA.RJ G O—TJL-7  64 S 

Mb3 

PRINT  985 


N 0 TE-f  S-H  Q.R  T.YEAJ? 


90110 
-9QJ20 
90130 
90 1.44L 


09936 
JB.4.9  37 


1272 

127-3 


764 


GO  TO  773 
1 1*2. 


09990  1279 


GO  TO  700 


90150 

-90160. 

90170 


09993 

09399 

1276* 
1 2773 

92  ! n 

STOP 
PR  I NT 

921 

92710 
_92X_2_Q 

09996 

03337 

1278* 

II7ft 

• 7 9 n 

STOP 
PR  T NY 

922 

92730 
527  3JL 

09351 

03352 

1280* 
1 28  i • 

9230 

STOP 
PR  t NT 

923 

92750 

-92760.  _... 

03353 

0335* 

1282* 

1287* 

9230 

STOP 

PRINT 

993 

92770 
92760  . 

09957 
04.9.4  a. 

1 289* 
-1285.9 

437.0. 

STOP 

PRINT 

937  (JUNK(JII) 

92790 

99800 
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04863  1 286*  STOP  92810 

0.4464 1287*  1.028.  12 ai 935QD 

08865  1288*  11*2  93600 

JJ4466  . . 1 289*  GO  TO  700  93600 

09967  1290*  899  PRINT  902  (IERR)  93800 

04872  1291*  STOP  _ 13.900 

09973  1292*  900  FORMAT  (12A6)  99000 

09.979  . 1 293*  ...  9 Q 1 FORMAT  .1.4012.) 99100 

09975  1 298*  9n2  FORMAT  ( I 9 , 9 ( 1 X , 0 9 ) , 2 I 9 , F 9 . 1 , 2 A 6 > 99200 

09876  -1  295*  903  FORMAT  (2(  I 4,  F 5.  l , 3 U ,-14  I 2 > ) — 99300 

09977  1296*  909  FORMAT  (I  3 , 1 X , I 3 , F 3 . 1 , 1 0 « 1 X , I 3 , F 3 , 1 ) ) 99900 

09500  1297*  905  FORMAT  (12*251  3)  .... 94500 

09501  1298*  906  FORMAT  ( 2 A 6 , I 3 , 1 X , I 3 , 1 X , F5 . 2 ) 99600 

09502  -1  29-9*  907  FORMAT!  14  t I4-*l-X t F6  L,  -l-X-,-1 3-  ,-2  64-  X tl-  2-  4-y  51L  -X  ,1  3 ) , 1 X .43! 94700 

09503  1300*  908  FORMAT  (219)  99800 

04504-  1301*  909  FOR M A T -L  2T-2 -»-7-A-6  1 99810 

09505  1302*  920  FORMAT  ('ONUMBER  OF  JOB  TVPES  EXCEEDS  MAXIMUM*)  99820 

09506  130-3*  921  FORMAX—M  ONUMgER  OE  BA510  CREWS-EX£EEDS  AU76M0M!) -99830 

09507  1308*  922  FORMAT  ( • ONUMBER  OF  BASIC  C*EW  EQUIPMENTS  EXCEEDS  MAXIMUM! ) 99890 

0451-0  -1305*  9 23  FORMA  T— <-*  ONUMBER-  -OF-  H-l-G-H-WA-VS— fN-  ZONE L-fS-T-£XCE-EOS  hAXI-hWMA 94850 

09511  1306*  928  FORMAT  (*ONUMbER  OF  ZONES  JN  ZONE  LIST  EXCEEDS  MAXIMUM*)  99860 

-095  1-2  1307*  925  FORMAT  f *1NVE  N TOR  T BACKLOGGED  *,64,  ' 0A45  ON-OAY*14J 94470 

0951  3 1308*  926  FORMAT  (*WEAThER  JOB  SKIPPED  DAY*,l4,*  WE  A ThER  ' , I 2 . ♦ INVENTORY  I 99880 

09513  1 309*  15  FULL  *4 49441 

09519  1310*  927  FORMAT  (*0  *)  99890 

0454  5-1  31  }*-  928  F OR^a4--M-H--2A6^6t£-7-,24 94  900 

09516  13)2*  929  FORMAT  (‘ONUMBER  OF  EQUIPMENT  TYPES  IN  INVENTORY  EXCEEDS  MAXIMUM!)  94910 

04517  131  3*  9 30  F0R-M4T  U-H*»  H 0X-,  *4,  I JOBSM—  99920 

09520  13  1 8*  93  1 FORMAT  ( * 1 M A X I M A 1X4»«,I4,'  1X5-*,  19,*  IX5C*»,I9,*  IX5E*  94930 

0 4420  1 3 1 5 * l * ,1  4 , t 1X6  * • ,14  , * 1762  *^*-  ,pi,. ! J _X8  ■ • , I 4 , i I-X9-J  , 1 4 1 * U4  0 94534- 

04520  1316*  2*’, 14)  94932 

04521  1317*-  - 9 3 2-  FORMAT  - 4 TO-H0L1D  AYS t-l-XlJi-) 94440 

04522  1318*  933  FORMAT  ( * 1 * , 1 0 X , t JOB  TYPES  AND  BASIC  CREW  DATA*)  94950 

04523  1319*  934  FORMAT  ('♦♦,  85  X-,*  PAYROLL  * F-U.2L 95955 

04524  1 320*  935  FORMAT  (’  CALCULATED  * I 4 , 7 X , I 4 , 2 ( 8 X ,1  4 ) , 7 X , 1 4 , 8 X , I 4 , 2 ( 7X  , I 4 ) ) 94960 

04525  1324*  936  FORM  at  1 * REAO  JOBS  OUT-  OF  SEQUENCE LAST  JN  ON  DAY  * I3,»  CURR£N -95465 

04525  132?*  IT  JOB  IS  DATED  *13)  94966 

04526—  1323*  - 937  F 0 R M AT  - LTQEQUUP  MEUI-JJtPE:  U.  3.,  ~* — NQ.T — IN — t-N-VE-ALT-Q  5YJ-) 4 .4.9.70 

04527  1324*  950  FORMAT  (1H0A6,40I2)  95000 

04530  1325*  951  F 0 R M A T M W 0 » 2A  6 , I 5 * I 3,  4 ( 2X-,  0 9 ) , 1JC  , 2 I 4 *F4 , 1 , I -4  )-  .95100 

04531  1326*  952  FORMAT  (78H0  JOB  CREW  PROD  EOl  E02  E03  LAB  HR  COST  EQUIPMEN  95200 

04531  1327*  IT  INDEX  AND  T YPE-.NUMBER) . £5300 

09532  1 328*  953  FORMAT  ( I 7 , I 6 , F 7 . 1 , 1 X , 4 I 4 , F 7 , 2 » I 5 , 1 H» I 3 , 3 X , 6 ( 2 X , 2 13)  ) 95400 

0 45J31-  .13  2 9* 9 54  F OR  M A T -X.LHJ1A  6, 1_4,  lS.^2I-4,-2A,-l.9.1 5J 455 QQ 

04534  1330*  955  FORMAT  (27X,20F5,1)  95600 

04535  1 331*  . 956  FORMAT  ( 1 H 1 , 42  X , 1 4HWE  AT  HE-R  CALENDAR  1 -95700 

04536  1332*  957  FORMAT  ( 1 HO  , 7 X , 3 1 I 3 ) 95800 

04537  .1333*  958  FORMAT  ( 1 H , A6,  1 X,  11  13) - - - 95900 

04540  1334*  959  FORMAT  ( « OWE  A THER »D A Y DOPL I C ATE  * , 3 1 4 ) 96000 

0.4543  . 1335*  960  FORMAT  ( l H0.4  0 X , 19  H.TRA  4EL-J4.ME_.T0-Z£LNE 1 96100 

04542  1336*  961  FORMAT  (1M  I3,F7,2)  96200 

04540-  1337*  - 962  FORMAT  |9X,20F6,2) — - - 96300 

04544  1338*  963  FORMAT  (»  PERSONNEL  INVENTORY  NUMBER  AVAILABLE  AND  HOURL*  RATE*)  96400 

04545  1339*  964  FORMAT  ( 3 X , I 3 1 5 , 13  r2F-7^2)  --  — — -96500 

04546  1340*  965  FORMAT  (34H  LAST  THREE  DAYS  OF  PRECEDING  YEAR  58X.3I3)  96600 

04 54.7 1-344  * ...  966  FORMAT  < 1 H 1-4  ,4-5-,-J^E  7^,4-24-41 — 9.6X00 

04550  1342*  967  FORMAT  (1H0A6.15I5)  96800 

04551  1 34  J* 968— F09M.AT-L30HMAX1M.IJM  JOB  INVENTORY  EXCEEDED) 96900 
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0M5S2  13MM* 

0MS53 13 MS* 

0MS53  13M6* 

0M5SM L347* 

0M5SM  1 3 M g • 

0MSS5 1 3*49* 

0M555  1 350* 

0M5.5  6 JL351* 

OM5S6  1352* 

0MS57 1353* 

0MS60  1 3 5 M • 


0MS62 

0MS61. 


1356* 

435X*. 


0M5&M  1 35  p • 

QM&6S 4359* 

0M566  1360* 

0MS6  7- — H64X 
0M567  1362* 


OM 5 7 1 1 36  M* 

0M5-72 4-16**- 

0M573  1366* 

QMS7.M L3  67A 

0M575  1368* 


0MS77  1370* 

OM*74  1 3 7 1* 
0M600  1372* 

-0M6O4 1373*-- 

0M602  1 3 7 M • 

QM6H3 U3ZS»- 

0M60M  1376* 

QM605 437  7* 

0M606  1378* 

JJ  4607 LIZ.?  • 

0M612  1380* 

0*61M L3  8l»_ 


1000  FORMAT!’  COMPUTER  GOT  TO  I 3 ) 

969  FORM  aTJ ’ERROR  , I RPER(»LpER_)-.J_S_Jl.ROj- COMPUTER  WILL  GO  IN  AN  ENDLESS 
l LOOP’) 

9JJQ  FORMAT  ( 1HL*3  U,  19H0AILY  RFPORt  WEEK  1 3 * 2X  » MHOAY  A6 , 1 X-,  L3^3*-»  7H.WE 

I ATHERI2) 

971  FORMAT  ( i 6H01NDEX_TYPE.  NAME  9 X. , 89H* ••*••••••••••  *LA BQR  HOURS****** 

1«****»**«  LABOR  TOTAL  W , U , W . U . W.U.  ) 

_ 9 7 2 F 0 R M A TL  ( ? 5 X j 9 5 H L A B 0 R.ER  S EQ  Op  _ 1 E Q OP  2 £.0  OP  3 TOTAL £0S 

IT  COST  PLANNED  DONE  CARRjED  ) 

573  FORMAT  ( IM,I6,l-X,2A6-»5F9.l,Fi£U.2^F9»2,3F9*t)  

9 7 M FORMAT  < 1 HO  , 1 2X  ,20 l 6 ) 

9 7*  FORMAT  1 1-H  2 A 6 t-20-F  6 * l ) - 

976  FORMAT  ( 1 H 2A6,!M,2J5,F7.2) 

9 79  -TORHA-T--  44HJ3  .48X,  1 8 HE Q U4P- ME4JT  -S-UM4AR4 _ 4 

980  FORMAT  ( 1 M H TYPE  COSTS, 2315  ) 

- 982  - F QR-M-A  T 1 1 S.F-9,4 , 23 1 5 1 

983  FORMAT  (7H0T0T*L  ,17,2315) 

98M  FORMAT  < Ut  1 , 3 U,  1 9 HA  EE  K LX  REP  OR  I-  WEEK-r  1 1*1-1 .4  X-,  1-8WW  0 R K D-AXS WEAT 

1 HE  R , 7 1 2 ) 

98-5-  FORM  AX — t4-H  l_, S4X_^ 1 1H  YEARLY-  REPORT ) r 

986  FORMAT  ( 1H1  ,3|X,  18HMEEKLY  PLAN  WEEK  I3,l6,10H  WORK  DAYS  ) 

— 987  F0RMAT44H0*  10X,6HT-0TAES*5X, 519, 110^194  - — 

988  FORMAT  ( 1H0, 10X,  12HJ0B  X LABOR  , 5F 9 , 1 , F 1 0 , 2 ) 

..—  990  -FORMAT— t 1H  ,-2J  3,1-5F6.  I ) _ 

991  FORMAT  ( 7 X , 1 5F  6 , 1 ) 

993  FORMAT  (’THE  FOLLOWING  JOB  IS  IN  AN  INACCESSABLE  ZONE.  IT  HAS  BEEN 

1SK4RR44M4 - — — — 

9 9 M FORMAT  ( 1 H 11  9X  , ’RECURR  ING  JOB  PROTOTYPES’) 

9-9  S -FORMA  T ( 1H1  l-RX-^  IH4-S-HWA  Y S AMO  CORSESRQNDX-NS -ZONES  *4  - — - — 4 

996  FORMAT  (’0RECURR1NG  JOB  TYPE  IS  UNDEFINED’) 


-9-82-8-0- 


998  FORMAT  ( 1H  2F  1 0 , 2 , 1317) 

—999.  F-08-MA-T— UMOJSI-71 

2022  I PL  A N ■ 1 

DO 2D  2.1 1-1-U-X5 

202  1 XJUNK1  ( 1 )*0.0 
DXL4.0M 1x1.  IX  IQ 


0M61M  1382*  C ACCEPTABLE  JOBS  WEEKLY 

QM617  4393* JR4.MJC1J.J-1 - 

0 M 620  138M*  JUNK1 ( 1)«!VDL(  1 ) 

0M621 1385* JI NO ( I )*Q . - - 

0 M 6 2 2 1 386*  N-lVTYP(l) 

0M623  1 387* 1 F ( N . NE  , 1 OOP  , AND  .N  .ME  ^?9.95,AN-P-.-N*-NE-t41I-.- 

0M625  1388*  JIND(l)-9 

JUNK  1 (-LlxLOOaO . . - 

1 390*  1 02M  DO  2000  J- 1 , 6 

4194* 1 CREW  XI  »j1  J--Q 

1392*  2000  CONTINUE 

1 393* CALL  RAN* 


4LQ  _T  0.  _1  0.2-4— 


0M627 

DM632 


0 M 6 3 3 
0M636 


98290 

98294 

98300 

— 9-8-M-00  - 
98500 

9120 D _ - 

93100 

93000 

99995 
.—  99996 
99997 

LOJIQCLCL 

100100 
. 4-00  20  Q . 
1 00300 
-LOOMOO 
100500 
-10Q4QO— 
100700 

- 100705 
100710 

LQ-0  7 20— 

1 00800 


0M636 

DM637 


139M* 
1 395* 


c GO  TO  RANKING  subroutine 
4-0X4- D 0-1045 L*  1 , I X-lfl 


0M6M2 
-046*11 
0M6M5 
0M6M  6 


1 396* 
1397* 

1 398* 
4.14ft*- 


0M6M7 

OM-ASO 


1 MOO* 

4X01*— 


J2- JRANK ( ! ) 

LF U I MOi  J.24, EJQ_» 94—GO  TO  1045 
J-INDX( J2) 


K5- I CRS ( J ) 
K-6  *4-C  R N ( 4 1 


101100 

404200- 

101225 

XOL25CL 

101300 

1 0 1 MOO 
104500 
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tm5i 
.0**  6.5.2 
04655 
444655  - 
04657 
04661 
04664 
Q4664. 
0*46  67 
0*4674 
0*4672 
0*46  7 3 
0*467*4 
0 4-6  7-5  ~ 
0*4676 
0-4637 — 
0 *4  70  2 
-0*470*4- 
0*4707 
-0*4  7-1  l-  - 
0 *4  7 ! 3 
-0*47  1 *4 
0*47  1 7 
-0**72  1 
0*4722 
0*4-725- 
0*4726 
0*47  27 
0**73n 

0*4737 

0 *4  7 3 3 
0*4735 
0*4737 
-044  7*44-- 
0*47*4*4 
-0*47*45 
0*47*47 
0*4  750- 
0*475  1 
04  7 5 3 
0*4755 
0*4756 
0*4757 
_0il  7 57  _ 
0*4762 
0*4763 
0*4765 
0*4766 
0*4766 
0 4370. 
0*4772 
0*4773 
0*4775 
0*4776 
0*4777 
.050-00 

05001 

05002 


1 *402* 
1*403* 

1 *404* 
.1*4  05* 

1 *406* 

1 *407* 
1*408* 

1 4Q9*._ 
1 *4  1 0* 
1*411* 
1*412* 
1*4  13* 
i *4  1 *4* 
1*4  15* 

1 *♦  1 6* 
-1*4  17* 

1 *41  8* 
1*44-9* 

1 *420* 
1-44  2 l-» 

1 *422* 

1 42X* 

1 *424* 
-4  425* 

1 426* 

4 427* 

1 428* 
-4  429*- 
1 430* 
14  31* 

1 432* 

1 43  3* 

1434* 

1 435** 

1 436* 

1 437* 

1 438* 
1439* - 
1 440* 

14.4  1.*. 
1 442* 
1441* 

1 444* 

44.4  5*. 

1 446* 

1 4 4 7-* 

1 448* 
1449* 
1450* 
1451  • 

1 452* 

1 453* 

1 454* 

1 455*  . 
1 456* 

4 4 57  •- 
1 458* 
-4-45-9  A_ 


J 1 =0 

DO  1002  K * K.5  » K 6 
J 1 ■ J 1 ♦ 1 


101600 
4 0.1700 


._-  X JUNK  ( J1  1*8. 0*HC0SI  X4UV ( T Qjt  JZl«_P_RQOlK  U 

1 002  JUNK  1 ( J 1 ) *K 

-00.1003  K 5 * 1 , J1  — 

00  1 003  K 6 »K  5 1 J 1 

C RANK  CREWS  ON  UNIT  COST 

! F ( X JUNK (K5  1 ,LE,X JUNK (K6 1 ) GO  TO  1003 

K3.JUNK  1 ( K5  1 - 

X-X JUNK ( K5 ) 

JUNK  1 ( K5  ) -4UNK  14  K6  1 - 

X JUNK  1 K5 1 *X JUNK ( K6 ) 

- JUNK  | < K 6 4*4(3 

X JUNK ( K 6 ) * X 

4003  cont  i nue  ■_  

IE  ( J1  « G T • 6 ) J 1 * 6 

00  -1004  K«  1 ,-JJ 

1004  ICREW1  J2,K JbJUNKI (K) 

-.1015  CONT+NUE 

J 8 ■ I 0 A Y 

DO  l-|14  K*  1 ,1X5 

1114  WUP ( 2 » K ) *0  » 0 

20  50  IS  16*0  - 

00  1116  K * J ,1X10 

. JC4  *4R-AUK-1K4 

J-INOx  (K  1 ) 

_ Na-1  VTYP  < K l 1 


101750 

4-01000- 


101900 
402200— 
102300 
_ 1 Q24QD 


102500 
443260X4- 
102700 
1Q28-00  - 
102900 
-403000 


103100 

403200 

103300 

103400 

103500 
1035-05— 
103510 
4433530 


IPIN.EO.  1000, OR. N,EQ,2riOO,OR.N,E(3, 3000)  JJNDXKl 1-9 

N X a 4 - - -_  — 

I F f IOAY.EO,  t ) NX.MULT 

- - IF -4-|  DTE  IK  1 4.-GT-.  I DAY-*NX-)--J-1-N D < K 1 4a 9- 

1116  CONTI NUE 

DO  1020  1 = 1 ,4X10  - 

J. JRANK  ( ! ) 

IF  ( JIND1J) ,EQ,9)  GO  TO  1020  

WPR ( j ) o VPR ( J > 

! V M T ( J4*.Q - - 

IF  ( I VDL ( J)  ,LE.  J8  + NX  + 2)  GO  TO  1005 

IF  ( I VTYP  (J)  « EQ  • 2 ) GO  TO  1020  - 

T VMT ( J ) = 1 

WPR(  J ) «VPR  I J ) *MULT/ ( I y 0 L 4 J»«J0*4*Q4 
1005  DO  I 0 1 0 K * 1 , 6 

C-  OVER.  SIX  BESI-CRE-WS 

L«ICREW(J,K) 

IF  (L.EQ.O)  GO  TO.  1020 
L1=WPR( J)/(PR0D(L)*T0J(J) ) 

IF  (L1.EQ.01  L 1 ■ 1 
C CREW  DAY  ESTIMATE 


103540 
-4-0354-5 — 
103560 
403565- 
103570 
403572 
103575 
1X32577 — 
103570 
403500  . 


103590 

-103600 

103700 

103000- 

103900 

-10.4000 


1006  4 F (L1*ILABLL1..UEL.NDL4---G0  13-1005 

L 1 «NDL/ I L AB ( L ) 

1007  IF  (LI.  EQ. 01  GO  TO- 10  10 


104100 

10  4150- ... 

.104200 

104300 

104400 

L0JL5J2Q 

104600 

10  4700 

104000 

4-04  9.00  — 

1 05000 

1054-00 


GO  TO  1006 
1008  K1  = IE01  <L1*U 
K2»IE02(L)*U1 

_K3«  IE-0  3 I L ) *L  1 

L2» I EQS  f L ) 
1_3  ■ 1E-0  N4-L4 


105200 

105300 

105400 

ID 5500 

105600 


105800 
-405900 
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05003 

1 *460* 

IF  (K  1 .LE.NDEl  ) 

GO  TO 

1009 

05005 

1*461* 

K2«t<2-NDE  l *Kj  _ 

05006 

1 *462* 

K 1 -NDE  1 

050 07 _ 

2.863* 

10.09. 

JF  (K2.LE.NDE2)...  . 

GO  TO 

10  ID 

0501  1 

1*469* 

K 3 * if  3 . N D E 2 ♦ K 2 

05Q1.2_ . 

_ 1865*  . 

* 2 -NOE 2 

05013 

1 *466* 

1010 

IF  (K3.LE.N0F3) 

GO  TO 

ion 

JL5_g_L5 L.5.5JL* 

U'LUL  . 

05016 

1 *468* 

GO  TO  1007 

235012. 

_. 1.869* 

_101  1 

00  1012  L*I«L2.L3 

05022 

1 *470* 

L 6 »L  *4 

05023 

. > *47  1 » 

L5*IEQ(L*4> 

0502*4 

1 *472* 

IF  (NDE(3T(L5)  ,LT, 

L 1 • I NO  ( L *4  ) 

2150.24 18  23* 

-1012 

continue.  . 

05030 

1*47*4* 

I S I G * l 

1 06000 

106100 

106200 

_____  LO  6 300 

106*400 

106500 

106600 

1 06  700 

106800 

. 106900 

107000 

_ __  10710-0 

GO  TO  1026  107200 

- 1.0.130  Q. 

107305 


05011  --1  9.75* Y.UUTOJ(J)  - 

05032  1*476*  x«Y*pROD(L) 

..05XL33. 1 *177 * M«2 . 

050  3 *4  1 *478*  WPR<  J)«WPR(  J ) - X 

05015 18-29 * IF  _i  1V.MT  (_J  )_*  NE  *01 . GO.  TO  101*4 

05037  1 *480*  I F <WPR(  J)  .GT.0,0)  GO  TO  1 0 1 <4 

050  *41 1*481*.  J I N D ( J ) * 9 ...... 

050*42  1 *482*  1 0 1 *4  NDL-NOL-L  1 * ! L AB  ( L ) 

050*43 1*483* NDE1-NDE1*  ...  Kl  

050***4  1 *48*4*  NDE2-NDE2-  K2 

235085 1.4485-*- _N0E3«MDX3-_ JC3. . 

050*46  1 *486*  N»  1 NO  X ( J 1 

_050*i7-.-  -188-7*  .—  - SLHlW.,NJ«SLH(-MtN)*Y*U,AS(L) 

05050  1 *480*  SE1H(M,N)»SE1H«M,N)*Y*!E01  (L) 


107310 

1 07*400 
107500 
107600 

1027  QO, 

107800 

1 Q7.8  1 0 

107900 

108  00.0 

108100 

108.20  0 

108250 

108300 

108550 


05051  — 4-*459*- _.SE2J4(Mt.N)t5£2H(M,N)*Y*IE02IU  - - - 

05052  1*490*  SE3H(H,N)*SE3H(P,N)+Y*lE03tL> 

.05053 1*454-*— I«U8-1M-^N-1*J4U1R.4J1^R)  *X . - - - 

0505*4  1 *492*  IF  (WUP<M»N)  .GT.XJUNK1  (N)  ) WUP  ( M j N 1 *X  JUNK  1 ( N ) 

215054 18.93* _ TCL.lM  ,N1*TCL  ( M .»U  1 ♦ Y • (I  LAB  ( L ) *Cl  + K 1 «CE  1 + K2*CE?*K3*CE.y) 

05057  1*49*4*  DO  1016  U*4-L2,L3 

.O50A2 1*495*.  ...  IF  .1 1N0  { L*4.U  EQ  . D ) GO  TO  10  16 


0506*4  1 *496*  1 5 ■ I E 0 ( L *4  I 

,05.0.45. L8.92  • J1D.  EJ3.I2.  L5J  *JN.D  EQI2  L5J  - Li  * I N 0 ( L *4 1 _ 

05066  1 *498*  EQH(M,N,L5)»EQH(M,n,U5)+  IN0(L*4)*Y 

05067  1*4  ?,9*. E.QT0T1M  , N 1«.IMQT|  M , N ) ♦ INO(l‘4)*Y*EQC(L5) 

05070  1500*  1016  CONTINUE 

05072 15 0 121 IF  C WPR  LJ  1 .GT . 0 » 0 L GO  TO  1018 

0507*4  1502*  GO  To  1020 

05Q75  1503* 1 02.6_.L  J_"NDJL$m_LS  1/  I N.O  l LAl._  

05076  150*4*  GO  TO  1007 

.05.027 1.505* 10  10  CONTINUE  

05101  1506*  1020  CONTINUE 

p!03  1507* IF  IlSJGtEQ.  1 ) 60  TO  2050 

05105  1508*  XJL(M)»N0L*8 

06107  1510*  XJE2(M)«NDE2*8 

_Q5J_L0 151i» _XJE34M)_«M0EL3*.a 

051  1 1 1512*  00  309  1 I » 1 *1X10 

.051JL8 4SI3S DO.  3 021. .2*1  *8 

05117  15U*  3091  ICREW(l,J)-0 

.05122 1 S.L5* 1 F LI 0 UT2  16J  .EQ*Q  ). GO..  TO  . 772 

0512*4  1516*  PRINT  986  , 1 WEEK  , NMULT 


051-30 15141* GO  Uy  773 


ia&600 


108700 

2.08210 

108720 

208800 

108900 

..  109000 

109100 

..  109200 

109300 

109*400 

109500 
J 09600 


109700 
109800 
1 09900 


..  LI  0000 

110100 
110200 
1 1 0300 

110*4.00. 

1 10500 

...  110600 

110710 

1 10720 

1 10730 

110220 

1 10750 

110800. 
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3 1 

05 ! 3 1 1518*  END  98300 

END  or  UNIVAC  1108  FORTRAN  V COMPILATION.  1 *0IA6N0ST1C*  mESSAGE(S) 

PHASE  1 TIME  e 3 SEC,  ...  I4 ' 

PHASE  2 TIME  « 0 SEC, 

PHASE.  1 TIME  c 6 SEC  * .....  

PHASE  9 TImE  ■ l SEC, 

PHASE  5 T_L  M E . » _ M SEC,  

PHASE  t>  TIME  a 3 SEC, 


TOTAL  COMPILATION  TIME  » 17  SEC 


STORAGE  USER  (BLOCK  NAME,  LENGTH) 


— o fn  >-  in  < 
in  o ji>ocrs 

— — <B  Q — — 3 Z X 

in  <n  in  n >o  n n t 
O'O  'O  — r^'Cfs.oo 
--NfM'OO'OOO 
O 30—  arsirnoo 
a oooooooa 
o oooooaoo 

ck  — — — — (T 

— — — Csf\,rvf\cc 
o ooaooooo 

O 30000000 

o oooooaoo 


& tn  w n 
— c\l  cr 
a:  o o o: 


n 3-  in  'C 

o o o o 

O Cl  o c 

o o o o 


3 3 0 M O 

c\or)a:>-zz  o: 
in  n n o.  i > « — a. 
— - MU««“>2> 

! o o<Nino-©'Co 
: if)  o - t >c  n — o 
o-*Ninin^NON 
O 00^0^  00*^ 

o oooooaoo 
o oooooooo 


cr  — — a: 

I 

— — ■ - (M  (V»  N N O N 

oooooooa o 
o ooaooooo 
o ooaooooo 


3 13  15  U.  U U 

— 3-  3-  r*  *-  _J  3 

in  >c  - n c > ►— 

— —.(NO  MHlit  h 

tn  ;r  cn  3-  cj  cn  — 3- 

m N N -«  3~  3“  O O — 

o — — 0^0  o o ^ 
O OO  oro  - O D N 
cocccoccc 

O OOOOOOOO 


— Q: 

— » — — O*^CNOO04 

o oooooooo 
o o o c c*  o c c o 
o oooooooo 


CN  o O M O 

O — Xx  — 
— — O'  — — 3 


rsi 


rv  n o h C'O  Nn  3-  — 
<N  3“  3 CNO^OOP^  — 

o — <\fOor^oo3-o 
o ooocooo— o 
o ooooooooo 
i c ooooooooo 

; 

— — ce  q: 

— — — o Csl  (N  rv  o o 
o ooooooooo 
ooooooccoo 
o ooooooooo 


15  J 15  U.  in  D k 
3~3-r^oa:>-— z 
minr^OQrXxOfn 
— — — OUJ— »—  3Z>~ 

fsifsir^noo  — n o in 
in  csi  3-fMC(3oo  — o 
c — — o o -c  cc  oc 
o ooooooo  oo 
c ooooooooo 

OOOOOOOO  OO 


cr  — — — — a: 

— — — OOCVCSfVOO 
O OOOOOOOOO 
OOOOOOOO  OO 

o ooooooccoo 


(hod-Q-O- 


q — cm  o a o a o o 
^3-3-0  — apoa 

o a o d o o 
o a o d o a 

M N N N <M  N 
X X X X X 3! 

m in  in  i/)  in  in 


— 2 

e o 


-.-fnHTTinm'C<(NNNDNr)T3 

oocoooooodooo  — — — — — 

oooooooooooooooooa 

ooooooooooooooodoo 


0- 
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00116 

19* 

ERR-3HSZ 1 

nn  j t t 

2n* 

GO  T 0 -8 .9  9 

00120 

2]* 

1 50 

I V N Z ( I ) ■ I V S Z < 1 ) 

00121 

_22*- 



K* J VS2 I 1 4 

00121 

23* 

C SET 

travel  time  to  zone 

-00422 

2 4* — 



_T.TJ4  n»TT  (K  ) 

00123 

25* 

return 

-00424— 

-26*- — 

,-C  . check  to  see  if  job  is  .for  a . 

00  124 

27* 

151 

I F ( I VLC ( I ) ,LE.  990  ) GO  TO 

-0042-8 

28*  — 

C JOB 

APPLIES  TO  -MANY  ZONES  AND 

SH20 1 000 

-SH2Q-L1QCL 

SH201300 

SH20  +400- 

SH201500 

SH2Q16DQ 

SH20 I 700 

PART  1£ULAEL  HIGHWAY  5H2.0iaaa_ 

152  SH20J900 

NO  PARTICULAR  HIGHWAY  SH202000 


00126  29*  TTJ(I)«0,0  SH202100 

-00+27 JO* ! VSZ<  I > *42  - SH202200 

00130  3 1 • I V N Z < I ) • *4  2 SH202300 

00+44 32* 4VLC  (++»Q SH-2-02-4QO- 

00132  33*  RETURN  SH202500 

00+33 34* 152  00  200  J*  1 ,1X6  SH202600 

00136  35*  J1*J  SH202700 

001  37 36*  iniVLClIUEQ.lHYIJ))  GO  TO  153  - - . . SH202800 

00141  37*  200  CONTINUE  SH202900 

-00+-4-3 3-fr*~ -P  R I-M-T  -*40  r -1  V+C  f 44-H  V 5-2+1  > r-J  VNZ  T 1 L,  X , Y 

00143  39*  C ERROR-- JOB  LOCATION  IS  NOT  ON  HIGHWAY  LIST  SH203000 

-00+5  2 RO*  - ERR»3H524 — --  - SH  20  34  00- 

00153  41*  GO  TO  099  SH203200 

-00 1-54 92*  153  NJ«IHYS< Jl  > — — - SH203300 

00155  H 3 • N2»IHYN<J1)  SH203400 

■00155 -4p«  . C J-0B-4S — POP — A H-L6-HJSLA.Y-._0R  P-ORT.  ION-OP— A~  HIGHWA  Y S.H203S00 

00J56  05*  I F ( IVSZ(  I > .EQ.01  GO  TO  171  SH203600 

00160 H6*  IF  U VNZ  < l ) . NE  ♦ 0 ) GO  TO  154  ---------  SH203700 

00)62  47*  I VNZ (I  ) * I HZ ( N2 ) SH203800 

00)  63 4g» 154  DO  l 60  J*N  l ,N2  -----  - . --  SH204 100 

00166  49*  N 3 * J SH204200 

-004-67 50*--  +F+4-VSZ++  )-»E 0 «- 1 H Z+  J 14 GO  T-0  1-62 SH2  0.8-300- 

00171  51*  160  CONTINUE  SH204400 

00)74 52*  C ERROR-»ST ART  I NG  ZONE  OF  JOB  IS  NOT  ON  ZONE  LIST  SH204S00 


001  73 

53* 

ERR*3HSZ5 

-004-2-4 

54*  - 

GO  TO  899.  . 

00175 

55* 

162  N 1 * N 3 

-004  26 — 

__ — 56*  - 

DO  1 6S-J*N1*.N2  - - - - ■ - 

00201 

57* 

N3  * I 

0-0202- 

58* 

1F(IVNZUU£Q.IHZ(J1)  GO  TO  170 

00204 

59* 

927  FORMAT  ('OJOB  TYPE  IS  UNDEFINED--  JOB  IS  REING  IGNORED’  ) 

00205- 

60*-- 

165  CONTINUE 

00205 

6 1 • 

C 

ERROR--END I NG  ZONE  OF  JOB  IS  NOT  ON  ZONE  LIST 

00207 

62* 

E R R * 3 H S Z3.  . ..  . ..  ...  . . 

00210 

63* 

GO  TO  099 

-002  LI 

6 4* 



170  N 2 * N 3 

00212 

65* 

171  X-0.0 

-002-14 

- 66* 

DO  1B0  J * N 1 ,N2 

002  1 3 

67* 

c 

FIND  ZONE  IN  WHICH  JOB  WAS  LAST  ENDED 

n02 1 1. 

. -68*.- 

180  XbX*DL7  ( J ) ...... 

00220 

69* 

Y*CPR ( I ) / < VPR ( J ) *CPR (!)  ) 

-00221-  - 

— 70»-  - 

— 

Z-0.0 

00222 

71* 

DO  185  J ■ N 1 | N 2 

-00225- 

— 22* 

N3«  J 

00226 

73* 

Z-Z+DLZ ( J) 

-00227  _ 

7-4  * — 

— 

lF+  (77-X-l  .GT.Y4-  - 6-0 -TO  4-9-0— - - 

00231 

75* 

185  CONTINUE 

-002  3 3 

76* 

- PRINT  910,  T-V+4  ( 4+  r41^SZ-+l  1-.  4¥W26l  1 , X-t2-  

SH204600 

SH204700 

SH204800 

SH2Q4.9QQ 

SH205000 

SH205 100 

94890 

SH205200 

SH205300 

SH  205.100 

SH205500 

SH2056Q0 

SH205800 

SH2059QQ 

SH205950 

51420.6000 

S H 2 0 6 1 0 0 
SH20630Q 
SH206400 
SH206500 
SH206600 

S H2Q6-ZQO- 

SH206800 
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00233  77*  C ERR0R--MILES  Or  JOB  COMPLETED  JS  GREATER  THAN  LENGTH  OF  HIGHWAY  SH206900 

002*42  7 B * _ ERR»3HSZ6  _ . SH207I0Q  

002*43  79*  GO  TO  899  SH207200 

002 HU 80* 190  I VSZ  ( I J - I HZ1N 3) SH207300 

002*48  8l*  N 3 ■ 1 V S Z ( I ) SH20732S 

002*46„.  82* TtjUl-TIlUU SH207  350 

002*47  83*  IVNZ(  I )»IHZ(N2)  SH20737S 

002-5.0  _ 8*4* RETURN SH.2.QJH.QQ 

00261  85*  899  PRINT  900,  ERR  SH207500 

0025 H.  _86*  TT  JT  I ) * 1000.0  — - SH2QJL6m 

00255  87*  RETURN  SH2076S0 

00256  SB*  900  FORMaTI  12X, ’ERROR  AT  • ,A3l  SH207700 

00257  89*  910  FORM  AT ( 1 OX  , 3 I 5 , 2F 9 . 1 ) 

OQi&fl—  .90*  - £N0_. .—  — SH2078C10 

. END  OF  UN!  VaC  HOE  FORTIUN_JL_CO-MPIi.AtlQNJ  0 tOlAGNOSTJC*  MESSA-GE1.EJ_ 

PHASE  1 TIME  > 1 SEC, 

PHASE  2 TIME  > - 0 SEC-, — 

PHASE  3 TIME  ■ 0 SEC, 

PHASE.  *4-  TIME  a O-SEC. 

phase  5 TIME  - 0 SEC, 

PHASE -Wl.-T.1HE_  * 1 SEX  * — 


TOTAL  COMPILATION  TIME  ■ 2 SEC 


13  I T FOR  RANK, RANK 

UNIVAC  1108  FORTRAN  V LEVEL  2206  0016  F5Q16B 
THIS  COMPILATIDN  WAS  DONE  ON  12  FEB  69  AT  1 5 J 0 7 I 5 3 
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h-  O O CJ  c o 

<n  I 1 


o 0 — C 
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ENP  or  MNIV.aC..  nog  F.QRTR IlN,.V  ,CPilPlJ>AUajj.« Q.T.PUiNPSTK*  MESStiEtSl 

PHASE  1 TIME  o 0 SEC, 

PHASC  2 TIME  m 0-SEC, 


PAGES 


3* 


PHASE  3 TIME  ■ 
PHASE  m time  ■ 
phase  s time  » 

PHASE  A TIME  m .. 


0 SEC, 

__0  SEC* 

0 SEC. 

_Q S££j 


TOTAL  COMPILATION  TIME  • 


0 SEC 
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Q X 0 T HIWAY 


BLANK  COMMON 

> 57*432 

1 63777 

starting  adoress 

0 1 *4000 

CORE  LIMITS  01*4000  03*4*410  100000  125635  1 57*42*4  157*43  1 


HIWAY  /COPE 

0 1Q31QQO-.  i 2 *4  2 52 

1 01  *4000-027303 

ns7o>Y/code 

X_.  02730*4-0273 IS  

NO-UlS  ycoox 

0 1 2*425*4-  1 2*4260 

4 -0  2731-6-03  0363—— 

2 1 2*426  1 - 1 2*432  1 


ntabs  /cooe 

0 12*4322-1  2*4527 

NET VS  /COPE 

1 03036*4-030*406 

N! 0 I NS/CODE 
1 03  0*4  07 -.030*4  5 3 

2 1 2*4530-  1 2*4560 

NOT JNS/CODE 

1 03.0  44  Si4  -03.0  7 *4  6 

2 1 2*456  1 -1  2*4623 


NFMTS  /CODE 

4 03313-417*03.1-75*4 ... 

2 1 2*462*4-1  2*47*4*4 


niers  /code 

0 1 2 * 2.«4  5 - 1 2 *1  7 *45 

1 031755-032122 

2 12*4  7*46-4-253131.. 


JNERR.S  ,/gQPE 
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0 125032-125150 

1 0321*3-032362 

NINPTS/CoOE  

0 125151-125151 

| 032*463-033616 

2 125152-12520*4 

FLOATX 

0-  _-.12S_2tt5-al&320 

NEXPf X 

0 125321-125*405 


CONVTX 

0 12530  6 -125360 

N I N I NS /COPE  

1 0336J7-033752 

L25*4Al^L25i3g 

RANK /CODE 

0 125531-125560 

L _ 0137  5J-Q33  073 

H ZONE  /CODE 

0 125561-125635 

1 033075-033310 


END  OF  ALLOCATION  1103  0033 


PERSONNEL  INVENTORY  NUHBER  AVAILABLE  AND  HOURLY  RATE 
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JOB  TYPES  and  8ASJC  CREW  DATA 


EMERGENCY 

1 000  1 

1 111  1 1 1 1 1 

1 1 1 1 1 1 1 1 1 

1111111  11 

1 1 1 1 1 1 1 1 1 

1 370  ,0 

1 

JOB 

CREW 

PROD 

E01  E 0 2 

E 0 3 

lab  hr  cost 

EQUIPMENT 

INDEX  aNQ 

TYPE-NUMbER 

1 

1 

1 .0 

1 0 

0 

2 8.90 

1-  1 

2 1 

traffic 

SERV 

2 2 

111111111 

1 1 1 1 1 1 1 1 1 

1 u 1 1 1 1 1 1 

1 1 1 1 1 1 111 

1 370  .0 

2 

JOB 

crew 

PROD 

E01  E02 

E 0 3 

lab  hr  COST 

EQUIPMENT 

INDEX  *ND 

type-num&er 

2 

2 

1 .0 

1 0 

0 

2 8,90 

2-  2 

2 1 

light  snow 

2000  3 

000000000 

ooooooooo 

OOOOOOOOO 

OOOOOOOOO 

1 370  .0 

3 

JOb 

CREW 

PROD 

E 0 1 E 0 2 

E03 

lab  hr  cost 

EQUIPMENT 

INDEX  and 

type-number 

3 

3 

.1 

1 o 

JL 

, l _ 

3 w 3 

2 l 

3 

4 

.0 

0 0 

0 

1 2.00 

4 - 4 

2 0 

3 

5 

.0 

1 0 

0 

0 2.50 

5.  5 

. 2 0 

SNOW  PLOW 

3000  4 

ooooooooo 

ooooooooo 

OOOOOOOOO 

OOOOOOOOO 

l 370  .0 

4 

JOB 

CREW 

PROD. 

E01  E 0 2 

E 0 3 

LAB  MR.  COST 

EQUIPMENT 

index  and 

type-number 

4 

b 

. 1 

1 0 

0 

1 6.90 

4-  6 

2 1 

4 

7 

.0 

1 0 

0 

..  0 4.90 

7* ...  J.  .... 

2 l 

4 

8 

.0 

0 0 

1 

0 3,25 

8»  8 

2 0 

4 

9 

. ..0  _ 

0 0 

0 

_l_-  IjLflfl 

9 - 9 

.2 Q 

snow  clean 

3500  5 

JMOJOQOQOO 

_QO.CLOO.Cm  0.0.  . 

0 oao  o 0.0  00 00.0  0.0 0.0  oo . ... 

_ 1 370  ,0 

10 _ 

JOB 

CREW 

PROD 

E01  E 0 2 

E 0 3 

LAB  HR  COST 

equipment  index  and 

.LY.P£- NUMBER 

5 

10 

* 1 

1 0 

0 

0 4.90 

10*  10 

2 1 

5. 

1 1 

*0.  . 

I Q_ 

. . -0. 

. a . . 1 0.3 Q . 

i_L»_Li-  — 

5 L 

5 

12 

.0 

0 0 

0 

It  22,00 

1 2-  12 

2 0 

5 

J3 

-.0 

0 0 

0 

1 2.00 

1 3*  .13 

. - - 2 0 

3 6 

0001 10110 

1001  1 0 1 10 

tool  I 1 1 1 1 

1 101  1 i m 

0 364  .5 

14 

JOB 

CREW 

PROD 

E 0 | E 0 2 

EOS 

LAB  HR  COST 

EQUIPMENT 

index  *nd 

type-number 

6 

14 

.9 

2 1 

0 

3 30.35 

14-  16 

5 1 

2 2 3 1 

6 

15 

1.3 

2 2 

0 

4 45  ^40 

17-  19 

5 2 

2 3 3 1 

b 

1 6 

2.3 

4 2 

0 

4 52.65 

20-  24 

5 2 

2 3 4 1 

7 1 3 1 

4 7 

100100100 

1 1 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 1 

289  320  1.0 

17 

JOB 

CREW 

PROD 

E01  E02 

E 0 3 

LAB  HR  COST 

equipment 

INDEX  AND 

TYPE-NUMBER 

7 

1 7 

5 4 0,0 

3 0 

0 

4 22,70 

26-  25 _ 

__  2 3 

7 

1 8 

585,0 

3 0 

0 

5 24,70 

2 4-  26 

2 3 

7 

1 9 

625,0 

4 0 

0 

b 31^60 

77-  27 

2 4 

7 

20 

415,0 

2 0 

0 

3 15.80 

28-  28 

2 2 

5 8 

1 00 1 00 l 00 

1 1 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 1 

75  104  .5 

21 

JOB 

crew 

PROD 

EOI  E 0 2 

E03 

LAB  HR  COST 

EQUIPMENT 

INDEX  and 

type-number 

8 

21 

1300,0 

2 0 

0 

Li. SO 

2*-  29 

2 2 

e 

22 

1690,0 

3 0 

0 

5 24,70 

30-  30 

2 3 

8 

23 

2050,  Q_ 

4 0 

0 

6 31.60 

3 1 - 31 

2 4 

a 

24 

1150,0 

2 0 

0 

3 15.80 

32-  32 

2 2 

PAGE} 


Ml 


6 9 000100100  100111)11  100111111  llOlUlll 


75  287  1.0  25 


JOB  CREW 
9 2S_ 


PROD  E01  E02  E03  LAB  HR  COST  EQUIPMENT  INDEX  AND  TYPE-NUMBER 
-- *UJ3 4 1 a a 2.9 1 AS 33-  _3S JjQ L U_ _4 2 1 


B 1 0 


LloJJ  Oi  LQ___LL1_L10J_L0__ 


0 346 


26 


-P.RJ3J3 EOl  E02  E 0 3 LAB  HR  COST EQUIPMENT  INDEX  ANp  TYPE-NUMBER 

, 6 2 0 1 5 36,05  3 6-  37  13  1 2 2 

_Q — 1 -6 H0»H5 30*  39 43 4 2 2 - 


XQL-12 atHLumjmo l.aainjnoQ tna.ua-iio 1 101  long 1.53  3 os 


JL2_ 


quipment  index  aNd.t ypt-nuhrer 


18 

IB- 

2 

2 

19 
1 9 

1 

2 

1 8 

1 fi 

1 

) 

1 9 

| 

18 

3 

19 

1 

18 

—2 

44  04J4li  4-  _ 444  44444  4 


JAfi  __CSEW PJLQ.Q EJU LSl2.  £03  LAB  HW.  jEOSI £lU  1 PMENJ^-im£a_-A.NJL^4J!?E.»tiiitlaER 

13  38  2,7  2 0 0 M 22,30  67-  66  IM  1 22  31 

13 39 4 ,3 2 0 0 5 26,70  — 6 7-  *9  4 H l 2 3 3 4 


13 

44 


MO 

HU 


5 . M 

6,0 


005  29,80  70-  72 

C a A-  -46.70  73.  75 


-4412  1H 


46.4  2,0 12. 


JOB.. 

ORE# 

PROD 

EOl 

E02_U13_4AB  HR _ COST 

. EQUIPMENT 

-INDEX 

-AND 

TYPE-J4UM-B4R  .. 

1 M 

M2 

1.0 

1 

002  9,50 

76-  77 

14 

t 

2 1 

1 M 

M3 

. . 2*0 

2 

0 .0  4.  _22,3D 

78-  8Q 

14 

l 

2 2 3 1 

1 M 

MM 

M,0 

3 

007  33.20 

8 1 - 8 3 

14 

1 

2 3 3 1 

L*L 

M 5 

- . -5-..0 

M . 

0 0 7 3-8,1  0 BM-  86 

IM 

i 

2 M 3 1 

1 M 

M6 

10,0 

4 

1 0 8 53.75 

o 

1 ® 

! 

1 

1 

2 5 3 1 5 1 

103  15 

iooi ioi io  loot  i m i 

1 101  1 1 1 1 1 

111111111 

0 366  .5  M 7 

JOB 

CREW 

PROD 

EOl 

E02  E03  LAB  MR  COST 

EQU I PMENT 

INDEX 

AND 

type-number 

. .45  .. 

- -47. 

- -7,0 

2 

002  13.80 

_il-  94 

2 

_2 

15 

MB 

14,0 

3 

1 0 2 29,35 

92-  93 

2 

3 

5 1 

15 


4 9 


3,5 


6,90 


91*  91 


4 0 H L6 JOLOO  1001 OQ LOO  4 44U 4-  40 0 1 44414  - 14044 414  4 0 366  1 ,0 544 


40fi CfiJEJ. 

1 6 50 

16 51 


1,5 

2,8 


10,65 

21,30 


95-  95 

96-  96 


INDEX  6ND..IYP£w.N4Ma£B. 
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105  17 

1 00] 00 1 00 

l o o 100 1 o o 

1 00 1 1 0 1 1 0 

] 1 0 110  1 1 0 

.....  0 3 6 6 ,0 

52 

JOB 

CREW 

PROO 

EOl  E 0 2 E 0 3 

LAB  HR  COST 

EQUIPMENT 

Index  and 

type-number 

1 7 

52 

143,0 

1 0 0 

1 6.90 

97-  97 

2 1 

1 7 

53 

200,0 

1 0 0 

3 10,90 

98-  98 

2 1 

1 7 

54 

430,0 

1 0 0 

5 14,90 

99-  99 

2 1 

1 7 

55 

57  1,0 

1 0 0 

8 23,30 

1 00-  1 00 

2 2 

106  18 

10  CLIP  0 LOO 

100111  11  1 

LI  0 1 11  1 l L 

11  1 HI  1?  1 

0 366  ,0 

56 

JOB 

CREW 

PROD 

EOl  E 0 2 E 0 3 

LAB  HR  COST 

EQUIPMENT 

I NDEX  AND 

type-number _ 

1 8 

56 

5.0 

t 0 0 

1 6,90 

lnl-ioi 

2 1 

1 8 

57 

7.0 

1 0.0 

2 8 i 90 

lQ2-aP2. 

2.1  . 

1 8 

58 

12.0 

1 0 0 

4 12,90 

1 n3-  1 03 

2 1 

108  |9 

000  1 10  1 10 

1 1 0 1 1 1 1 1 1 

1 1 n 1 1 1 1 1 1 

1 1 1 1 1 1 11  1 

0 366  ,5 

59 

JOB 

CREW 

PROO 

EOl  E 0 2 E 0 3 

LAB  HR  COST 

EQUIPMENT 

INDEX  AND 

type-number 

1 9 

59 

_ 46,  Q. 

1 0 0 

l 5,80 

104-104 

16  1 

1 9 

60 

62.0 

1 0 0 

2 7,80 

1 05- 1 05 

16  1 

1 20 

000 100100 

1001 1 1 1 1 1 

1 On  1 1 1 1 1 1 

110111111 

153  245  .5 

61 

JOB 

CREW 

PROD 

EOl  E02  E0  3 

lab  hr  cost 

EQUIPMENT 

INDEX  AND 

TYPE-NUMbER 

_ - 

20 

6 1 

26,9 

6 0 J2_ 

7 .5.8,90. 

1 Q6-_1_09 

.1  1 .... 

2 6 3 

1 

4 1 

20 

62 

17.7 

4 0 0 

7 49,10 

110-113 

1 1 

2 4 3 

1 

4 1 

7 21 

1 00 1 00  1 00 

1 00 l 00 l 00 

1 00  1 1 0 1 1 0 

1 101 101  10 

0 366  .5 

63 

JOB 

CREW 

PROO 

EOl  E 0 2 E 0 3 

LAB  HR  COST 

EQUIPMENT 

index  and 

type-number 

2 1 

63 

67  ,Q 

3 1 0 

3 3 3.»S5 . 

1 14-H6 

5 i . 

2 2 L2 

_L.  .... 

21 

64 

1 00 . 0 

4 2 0 

4 51.40 

U7-119 

5 2 

2 3 12 

1 

2 1 

6 5 

67,0 

3 ...  . 0 L. 

. 3 34,55 

120-121 

l 3 1 

2 2 

_ 

2 1 

66 

100,0 

4 1 1 

4 52,10 

122-124 

13  1 

5 1 2 

3 

1 07  22 

0001001 00 

100111111 

I 001  1 1 1 1 1 

l 101  111  1 1 

92  305  1.0 

67 

JOB 

CREW 

prod 

EOl  E02  E 0 3 

LAB  HR  COST 

EQUIPMENT 

INDEX  AND 

type-number 

22 

67 

117,0 

1 0 0 

2 .8,45 

125-126 

1 1 1 

15  1 . 





22 

68 

83.0 

l o n 

2 8,90 

1 27-1 27 

2 1 

1 09  23 

1 00 l 00  1 00 

110100100 

100111111 

l 101  1 1 1 1 1 

0 366  ,0 

6 9 

JOB 

crew 

PROO 

EOl  E02  E 0 3 

LAB  HR  COST 

equipment 

index  and 

type-number 

23 

69 

__  4,0 

•_1 0 o 

2 8,90 

128-128 

2 1 

.... 

...  . 

23 

70 

6,5 

1 0 0 

4 12.90 

129-129 

2 1 

23 

7 1 

4.0  . 

1 o o 

6 . 19 , 30 

130-1 30 

2 2 

. _ _ . _ 

....  . 

23 

72 

3.0 

1 0 0 

1 6.90 

131-131 

2 1 

110  24 

100100100 

10  0 1 l 0 1 10 

1 1 n 1 1 l 1 1 1 

l 1 1 1 1 11  1 1 

0 366  1,0 

73 

JOB 

CREW 

PROD 

EOl  E02  E 0 3 

LAB  HR  COST 

EQU  I PMENT 

index  AND 

type-number 

24 

73 

2,0 

1.0  _0 

. JD  9,70 

1 32-( 32 

17  1 

— 

.1.11  25 

LOQUOJJJ  . 

1 UL1 1 LI  1 i 

111111111 

111-1 1 111  1 

0 366  ,£.. 

. JT4 

— 

JOB 

CREW 

PROD 

EOl  E.P  2 EO  3 

lab  hr  cost 

EQUIPMENT 

INDEX  AND 

TYPE -NUMBER 



page:  m3 


25  7M  5,0  1001  5.80  133*133 

25  75  .7,0  L 13. 0 2 . . . ZjJLQ..._ HAsl 3iL 


U t 
16 L 


page 


99 


HIGHWAYS  AND  CORRESPOND ! NG  zone's 


ZONE 

1 

301 

1 

13 

3 

1 3 

1 9 

26 

39 

393 

92 

51 

50 

59 

67 

79 

83 

l • 6 

2.0 

2.0 

2.1 

2,0 

2.1 

1.0 

1 .2 

1 • 6 

2.2 

2.3 

2.0 

2,0 

ZONE 

z 

3*1 

1 9 

2 1 

79 

75 

76 

85 

86 

89 

92 

93 

.5 

8.1 

.8 

1 .9 

1.3 

2.1 

2.5 

2.0 

ZONE 

3 

382 

22 

31 

50 

5 l 

60 

69 

70 

78 

8 

86 

91 

82 

»X 

JZ.9 

— 

. 1 *£_ 

1.9 

2 

7*9 

. J .X 

1 .6 

1 .5 

zone 

9 

202 

32 

90 

7 

8 

9 

1 6 

1 7 

29 

25 

33 

39 

2.9 

2.1 

1.8 

2.0 

.9 

1.0 

2.2 

1.2 

1 .0 

ZONE 

S 

3 

9 1 

91 

6 

2jA 

ZONE 

6 

2 1 5 __ 

92 

92 

21 

l • 6 

ZONE 

7 

972 

93 

93 

21 

_ . 

ZON£_  „ 

_ _JL ... 

_9  5j_. 

99 

96 

21 

29 

28 

1 .2 

.5 

1.2 

ZONE 

9 

7 1 9 

97 

97 

30 

. 5 

zone 

_ 19.—  . 

908 

98 

50 

9 1 

92 

93 

2.1 

2.1 

2.9 

ZONE 

1 1 

889 

51 

53 

21 

22 

30 

2.6 

.7 

1.0 

ZONE 

1 2 

SO 

S 9 

60 

7 

1 

2 

3 

9 

5 

6 

2,9 

2.3 

1.9 

1.9 

2.0 

2.0 

1.9 

ZONE 

1 3 

995 

6 1 

70 

39 

37 

38 

39 

30 

23 

16 

9 

2 

1 

1 .5 

_ 2 1 0_ 

. 2,0  . 

2_l0 

2,8 

2.3 

2.0 

2.0 

1.0 

1 »o_. 

zone 

1 9 

2 9 5 

7 1 

71 

36 

• 8 

zone 

IS 

5 

72 

78 

28 

39 

97 

98 

57 

66 

79 

2.7 

3.0 

1 . 1 

l .3 

JLU 

2.^ 

,9 

ZONE 

337 

79 

80 

30 

39 

1 .5 

1.2 

zone 

1 7 

9 

81 

88 

2 1 

29 

30 

31 

90 

91 

92 

93 

3.1 

5 

2.1 

l . 6 

2.1  . 

2.0 

. 2.i  Q . 

_ZON£ LfL_  JiUL  _8.?_  9J 37_ 3J 2J_ 

• a t .a 


2.1 


page  r 


*45 


ZONE 

1 9 

2 1 0 

92 

98 

37 

*45 

5*4 

63 

71 

80  79 

1 *.7 

..  2L*IL. 

_2*Q  _ 

.3  <4.5  

ZONE 

20 

223 

99 

105 

*4  0 

*49 

<48 

56 

55 

6*4  71 

2.1 

1 .9 

2.1 

2.3 

1.0 

2.2  1.2 

Z ONf 

21 

373 

1 06 

1 1 1 

79 

80 

81 

82 

73 

7*4 

2.1 

2.1  _ 

.*4 

_U7 

1.3 

ZONE 

Z2 

21*4 

1 1 2 

lJi 

1 *4 

15  ... 

15.  - 

17  - 

18  ... 

19  20 

1 . 3 

1 .9 

2.0 

1.9 

1.9 

2.1  2.6 

zone 

23 

596 

1 19 

123 

3 

10 

17 

18 

25 

2.1 . 

7 - 7 

1 . 0 

l . i 

. ? 

ZONE 

2*4 

*459 

1 2*4 

.12*4 

. 7 

2. *4 

ZONE 

25 

637 

1 25 

125 

28 

_ZONE 

2.6 

A3! 

126 

126 

78 

. *4 

zone 

27 

973 

127 

127 

7 

- 7 

ZONE 

28 

7 0*1. 

126 

132 

2 

2_ 

_i 

8 

1*4  . 

.5 

2.2 

.5 

2.2 

1 .*4 

I i 


! 1 


<M 


I l 


03-9-  1/1  TT  (H  T I I 

i«n 


(MVNi/iNirr/Ti/i 

i 

<M9Ptf9|9r.9^i9 

9 9 M Ifl'l  N 3-  9 •« 

-*990ij99f«»9"O 

9Nj-Tjj-rsr4 

l 

T-rj-ir-erj-r 


j;  ji  t 

i 

9*  9-  * 

| 

aj  - » 


ft 

j-o 

Jn* 

!i<l 

i" 

:9 

N 

1 

R 


IfM 


99L/19999CS9 

I I : 

•O  — 9-  T]  r 9 9 9 9- 
9 9 9 9*  9-1/19-99 

| 

9 -•  9 9t  9 9 r*  IN  9 

I 

9-  — IN  Ol  ’ 9 9 l/l  (4  9- 

l : i ! 

9 - n l/il  T N l/l  9 9 

: i 

in»II«9'«9’9'» 


9-  9-  >0 
9!  9 111 

i i 

9j  "O  9* 

i3-  4 

j:  t t 

i 

Xi  X — 
?t  it  m 


it  y mjTiAKTinsiir^ 


i° 


!o 


X X!  9-  9-  X X 

! 1 i 

I — x x xi  x x ^ x x 

-inTT'TTMfl? 

j 

-*  evj  ' x irj  x ® x x x 

I ' ( 

— xin'Oixp^xxx 

. | 

n N T Tl  l/l  T Ifl  T ifl 

i 

• X-  n-.TT|TTlTTT 
1 ; 

(D  bJ  - nTTlTTTTN 

1 v i ' 

*t+  & TNT  T,  T T T T T 

1 ~ \ 

>0  O >OTT^TTTTT 
LJ 
U 

■tfl  LJ  TTlTl/liTT^TT 

tfc 

Q- 

X iTT  TiflTTT^T 

! U- 

! O 

r>  iT'OT'C'Tl/ITTT 

in 

'CM  < TTTTJTTTTT 
O 

i 

T T T:  T T T 


A*  * 

i 1 

T T 

I 

1/5  X 
ji  T N 

j" 

; 1 

9!  9 -o 


— Ui  9 9 
Ui 


i xj  £ 

¥~  O — 1 Ui  >-  D t- 

j <,<w<t«32DW 


999 

I ! 

9 9 rfi 

at  9 ui 


*-i  > uj 
u c u 
0 2 0 


S Q«I<IN(1Q»N 
« « — — — <N  l/l  9 


0 a 

0 a 

'O  »s 

OO  O' 

® CO 

cm  n 

- - 

■e  9 

• 

• «i 

^ *1 

*■  *t 

tfl  < n a 

• m 

^ n| 

• m 

fM  *n> 

• 

• 

• 

® <s 

CO  ffl 

in  ^ 

rv  co 

lO  1/1  • (N 

n ■? : 1 


ts  r4  rv 

N n t in 


o ifl  n • 

m x • 


4 < 

«M  X 


o|  f*  t/l  • «0 


N eo 
n o • 
t • 


X X 
i>l  n 


n o n 
n - c 

• € 


-3 


d * n • * 

9 • IN  • • 


. r4  r*>  K 

<•  Ml 


<B  N N fl( 
«*1  9 tf! 

- . . . 


Ifl  o 

j i 

n * n a 
X *1  m xi 


tfl  lA  « 
tfl  'll  b- 


n 1/1  n » • 

Ifl  9 «■>  «l  • 

• 4 • • 

f: 

9 91  9 9t  9 
tfl  « s e ► 


s N n<  n 

tfl  tfl  9'  tfl 


«*!  i*  ci  ci  nn  d 

Cl  91  tfl  4 MS  » 


: s ;a 


1 « « « « 

• •:  * * 

fNcuoiiMMiiNNiN 

NCI»(tfl'<|Nffl*' 

J i 

It  tfl  N N *01040 

fsi  — a o • 1/1  Lft  9 

• •4*9  • 4 • 


-1 ---- 

Nn  9|  tfl  '•SOS 


PAGE  J 


47 


RECURRING  JOB  PROTOTYPES 


2 

0 

-16*0 CL  994 

£L 

0 

1 1 

1 

i 

0 

2 

8 

2 

.10  495 

0 

0 

4 

7 366 

0 

1 1 

30 

1 

8 

2 

.10  495 

- 0 

0 

*L 

7 166 

-JO- 

_ 2 

30 

4 

8 

2 

. 10  495 

0 

0 

4 

7 366 

0 

4 

30 

....  .*40 4.55  -J0_ 

-JO- 

_4__ 

7 166 

n 

9 i . 

30 

6 

8 

2 

.10  295 

0 

0 

4 

7 366 

0 

222 

30 

108  1 4-0  0*00  991 


8 

9 

10 

tt 


1 1 1 
102 
I I 1 

m 


.30  301 
5.0  0 556- 
. 1 0 2 23 
--*40  - 371- 


26 

1-0— 
4 0 

79 


0 

0 


12 
\ $ 

1 1 1 
10? 

3 

3 

,20  50 

4*00  959  - 
1,00  459 

7 

? 

0 

- o 

0 

2 

1 

-1 

s 

0 

o 

4 20 

in ? n 

14 

102 

3 

7 

0 

2 

7 

7 

0 

30 

20 

-15-  102 

1 

4.04  101— 

83 

-0- 2 — 

—4 — 

7 

0- 

10 

20 

- 

101  3 


.70  *4  95 
*1-0  -244 


38 

44- 


60 

—5 


30 

—4- 


20 

-20- 


102  3 

2,00  202 

33 

0 

2 

7 

7 

0 

30 

20 

101  3 

lf>  74  Q_ 

*4-5 

— 0- 

2 

j 

60 

o 

10 

0 

1113 

, 1 0 382 

50 

0 

0 

l 

5 

0 

4 

20 

411-1 

- r 1-C)  JO 4 

4 

o_  _ 

-0- 

-_L- 

B 

o 

14 

20  . - - 

102  3 

3.00  3 

6 

0 

2 

7 

7 

0 

30 

20 

24 

104  3 

3,10  382 

0 

0 

2 

3 

10 

0 

180 

40 

2§ 

4 14—1 

. , 2n  u 

3 \ 

1— 

g 

0 

u 20 

26 

111  3 

,10  459 

7 

0 

0 

1 

5 

0 

4 

20 

7 7 

til  l. 

. ,4  0 IS  1- 

7 4-  - 

n 

1 

5 

0 

4 20 

28 

101  3 

1.40  5 

39 

0 

2 

I 

60 

0 

30 

0 

.2-9— 

. 1 11.  1. 

- *4_0  958 

2 1 

n 

0 

j 

5 

Q_ 

. 4+ 

20 

30 

1113 

.10  337 

30 

0 

0 

1 

5 

0 

4 

20 

31 

141  3 

- * 10  408 

4 1 

0 

0- 

4- 

5 

41- 

- 4 

20 

32 

102  3 

2.00  5 

48 

0 

2 

7 

7 

0 

30 

20 

11 

4 11-1 

.10  414 

0 

20 

34 

102  3 

1,00  414 

37 

0 

2 

7 

7 

0 

30 

20 

-IS— 

. 101  -1. 

— .-*_70  704 

8- 

0 

2 

l 

60 

0 

30 

2 0 

36 

10  1 3 

,70  337 

30 

0 

2 

1 

60 

0 

30 

20 

34 

101  1 

.30  373 

73^ 

0 

2 

1 

_6Q_ 

.0 

30  . 

20 

38 

10  2 

26.00  301 

0 

0 

8 

30 

30 

153 

40 

30 

39 

40  2 

45.90  202 

0 

0 - 

8- 

. 40 

30  451 

-.40 

10 

40 

10  2 

7.90  3 

0 

0 

8 

30 

30 

153 

40 

30 

I c| 

;0  3 


o o- ; 
o 


I cmI 
1 10  n 


! I 


I I 1 


i o~  r«-  k ® 


1 


cotococpcciiiccaiaitEcocotDcx) 


CO  CO  CD  £0  O'  O-  I - NNNIM  N OOOOOOOOOOOO-O'O-O' 


O-  l/I  ill  lil 


ri 


io  — 


I-  i 


CO  CO  coi  *c 
O 


— » o csr 


! « 


k n « is 


ionT 

\ 

‘ ; esi 

10  0,0 
:o  oio 
» • • 
c ojo 

CD  «C|  *Q 
1 K mi  t 


-ol  ^ t - 
i£)  \ in  O O 
m y ^ 


d n n 
bJi 

K CD  3- 


fSI 


o|oo|o 

c5ooio 

«j  — O 

<vj  — im| 

N NN;N 
y y y ’■  M\ 


i£  S»  « 

— _ii  fvf 
x <; 


j j, 


^-□N«nj-N«oo 


NT'OttOTCOCiO^sr^ 


o 


K N K 
O "O  'C 

n «*>  H 


h-f-fvf»r<r'isr-if»r»Nrs 


IN  «N|  CN  INj  «N  m 


-c  -c  -o  -d  e c -C  M>  -d 
c'iq*nHc*»ni'»«'*«'»rj 

f*  *j 

J 


-O  >0  O O 
ey  ry  t*i  s*i 

! ; 

N K ^ N 


1 


inininincminininincminis  in  t\| 


^^-<onI  in 
-0-0  0 — 

o q m ai  - - - 


co  a N 3 -o  o 3 -o-o| 

fl  fl  m O O 

— Kh-fvNNNMn-rSNN 


CD-  ©“  O -C 
, >©  S5 

rm  m 


O CD  o N 
<o  >o  ^ PN 
n O n n 

o o o p 
m rn  m m 


© O T ® 


O — — — 


f4c4coaiyn4-*-4  — — I y y y y y ; y y y y1  y yj 


* ^ 


'O  t4 


3-nO‘-'OflN©n 

rvyjrv  ! no-  ® t^T 

® - N T >J)  T O — * — 
tvjNnrtnNi/iNy 


— y 


o in 

rsi  n 


<N  rsi  fsi  «si  fM 

y y is  y y-  y 


M N - - 

yj  y 


_4  _ _ >Oj 


1 


s C o!  3-r^r^<q«MN3--< 
ci  3 f»  — I I n N 


pj  N3.  I 
31  3 <*I  <*1 


3-3-  3t  I J-  » T I -Ol 
ncirtcicinonn 


d o o o cj 


IN  -«|  -€  -II 
J P(  N N 


«*i  o 


o d 
o d 
• * 
O Q 
co  i/t 


i/iromin-<NiuiTM  «*i  r-t 
-Mmentoon-NN 
( IN  3f  IN  cl  «•>  3,  3 «1  Cl  JJ  N !>, 

oaooooodoooqoo 

oooaoooooooaco 

OOOOOOOOOOOOOO 
-3iOOCIBCOTCI~h  3 -O 
3-  3-  — 31  3 l/l  , IN  -t  3 til 


NMNWNMNMNN 

ifiininini/iini/jini/iin 


3 4 o-  3J 

- in  in  d 

Will  3 |J 

o o o a 
0000 
• • • 4 
c o o o 
-o  n -~  <i 
3 CM  — IN 

IN  N fN  IN 


IN  IS) 

u>  1/1  in  iri  in  i/i 


o d in  o o o o 

o 

• y 

o q o o o o a 

o o y o o o o 

• ••«••« 
m m *0  o o 

<s  -*  • ~- 

CVi  <v$  m -4  o o.  o 

• I 

'C  <1  O Q N N N 

— O 

: — D 


o o in  in 
o*  a* 
! y y 

OOOO 

o o — — 

•i  m m m 

O <1 


OWN 
(SJ  GO  CD 


— ivif^y  it  ® s q d>  o — 


S3 


inmiAininmintnin 

O"  O'  O'  O ^ ^ ^ ^ O' 

3.  3 3'  3 31  3 3l  3 INI 

1 : ; 1 

ooaoooooo 


INCMIN,ININININININ; 

co  co  coj  cc  a;  co  co  a>  ®l 


OOOO 


o O o d 

O CS  O 0 


O -c  — 

o o a 
«n  n n 

o d o o 

c C)  Cl  Cl 


3 


CO  31  CO  CO 

o q o O 


CJ  Cl  Cl  c) 

I I 

CD-, ► 


r-®0-0— -fNC13l/l-O|sC0!  0-0—  INCS3  31-0 
I'll'll'l  33  33333  3 3|7ini«lftinifl|l(llfl 


PAGE  1 


9* 


57 

102  3 

5,00  556 

10 

3 

2 

7 7 

0 

1 8 

5 a 

111.3 

.40  _2  2L3 

40 

...9. 

.0.  - 

1 . 5 

0. 

25 

59 

111  3 

,10  223 

90 

5 

0 

l 9 

9 

25 

60 

111  3 

,40  243 

90- 

- 6 

0 

1 43 

8 

25 

6 1 

111  3 

. 1 0 373 

79 

39 

0 

1 5 

0 

25 

62 

111  3 

*4  0 311 

79 

37 

0 

i 9 

.9 

2 5 

63 

111  3 

.10  373 

79 

38 

0 

l 1 3 

8. 

25 

,20-  50  - 

7 

13 

_n ...... 

_4 5. 

. 0- 

25 

65 

1 1 1 3 

,20  50 

7 

30 

0 

1 9 

9 

25 

6 6 

1 11  4 - 

, ?n  50 ... 

J 

2 3 

- 0. 

l | 1 

8 

2 5 

67 

102  3 

1,00  859 

7 

16 

2 

7 7 

0 

18 

— 72 
73 

79 

75 

7 A 

77 

7 8 

79 

*o- 
81 

A2_  4-02.-  2 

83  1 02  3 

84-104 

85  1113 

84 144  3 

87  1113 

89  1113 

20-  1 J 4 3 

91  1113 

92--  444  4 

93  1113 

29 4-Oil 


1 .00  859 

1.00  301 
— MO  995 

.10  219 
,40  2M* 
,10  219 

2.00  202 

,30  210 

— ,4  0.442 
.10  382 
.10  382 


95 

1113 

,10  958 

21 

63 

0 

1 

5 

0 

25 

94 

14  1 2 

,10  958 

24 

1 1 

0 

4 

9 

9 

25 

97 

111  3 

.10  850 

21 

80 

0 

1 

13 

8 

25 

98 

1113 

.10  337 

20 

.79. 

0 

1 

5 

0 

25 

99 

Ml  3 

,10  337 

30 

80 

0 

i 

9 

9 

25 

111  3 

.in  337 

30  . 

8? 

--0 

1 . 

1-1 

8. 

25 

101 

111  3 

.10  908 

91 

98 

0 

1 

5 

0 

25 

-402- 

l M - 2 

MO  908 

84 

54 

0 

1 

9 

9 

25 

103 

1 I 1 3 

.10  908 

91 

55 

0 

1 

13 

8 

25 

4 0.9 

402  2 

2-.00  5 

9g 

69 

2 

7 

7 

0 

1 8 

105 

11  1 3 

.10  919 

37 

71 

0 

1 

5 

0 

25 

_104_ 

J44_J 

.40  -.942— 

37 

79- 

.0 

_JL_ 

_9_ 

25 

107 

111  3 

.10  919 

37 

80 

0 

1 

13 

8 

25 

-443  ft- 

102  2 

4.00  918. 

2 7 

84 

- 2 — 

_ 7 

7 

0 

19 

109 

101  3 

,70  709 

8 

82 

2 

i 

60 

0 

1 3 

. 4.4  0 - 

40  4 3 

.70  337 

20 

73 

2i 

4 

40- 

0 

1 3 

HI 

101  3 

.30  373 

73 

79 

2 

1 

60 

0 

13 

o 

m 


o o oo  a oooo 


; ! 


!3  2: 
I • ° 
* Q 


l • uj 
■3  2 


• C 

• ►- 
• o 


• a 

• UJ 


3 0- 
O O 


• Q. 

• O 

• 

• o 

• UJ 

• 

• tn 

! • 

! • UJ 

• K 

• o 


o o oi  o o 


Mfl  ON  N 


i»  (i  o to  a 
^ n m - a 
N T 'O  T 


of  o r^S  o r4 
o « q ^ k 

•|  • i • • 

< n -oi  in 
i/i!n  m 
-•[  «n  o- 


0,11)  ©jo  o 


M-!  — *l|  W i 
rv  m oj  -•  i 


o Q 

• • 

•4 


o a 
• i 


o a 
o o 


o a 

IT  3" 


O 0-0-  0 0 
• • 
cd  o — *i  *y 
t qy 


c N ffl 
• • «♦  • 

•n  i n 


— — 4 

lil  T O - 
CM 


® N « »■ 
o as  a -o 
• • 4 • 

■CNN® 

«*i  o -4  »■ 


CM 


® O CO  CM 

ill  □ <4  o 


a o a o 
- • 1 * 


i 

J 

a o q o 


c*i  o ® a- 

c . c • 

l/l  O -«  3 


in  o q 0 

3 • 4 • 
o o cc 


CM  CO  O — 


K 

1** 

Ihj 

CD 

O'  o 

a- 

i I i 

»■  »!  in  ; 

i 

| 

taJ 

IO 

IZ 

- 

“1“  ! 1 

i ; i 

1 S 

IT 


O r 


« D 

s:  - 


o o o o o 


; . i j I 

1 j I j 

H o;  o o o a 

- i i ! 

'!  i I 


1 


o o o o a 

j I 

i I 

aoooii 
*4 

i j 

J 

o o o 

! i 

-*  0 0 0 3-0 

H i 


ojoa  to 

i j 

o o cj  oq 

i 

I I 

*J. 


o.  ® o o o o o 


qoaod 

! I 


Ml  o o o o o 


l/|  o 


o q 


1 


rl 

c^ocj 

J — 1-- J 

IM  -o  O - ■« 

! 1 j 

Q O O O O 


in  oi3-3-oo 
t-j  3 CM  CM  3| 

in  -!  • * • 3 

q is  m N — at 


i i 


i i 


oooo  o ! 


o|  o d 


a o 


J 


a o a 3 
<■»  — 


01090  iO 

! ! 

; i 

it  o aj  a in 

I ! I 

i i 

i ’ 

a o a o !<m 

“ ! I* 

; | 

a o o o ; o 

I ! 

j 

Oooo  3 
- 

I | 

I ! 

OOOO  9~ 

j 

cjo 

I 

I 

i 

oooo 

I 

4 

oj  o o|  o 
a o a o 


oooo  o 


qoqo  o 


OOOO  i o 


Lfl  o a o i — 


c o o o oq 


O *M  ^ 

O'  O'  CD 

"*i- 


SS°: 


y 

! 

4 o 


NBS  TECHNICAL  PUBLICATIONS 


PERIODICALS  ' 

JOURNAL  OF  RESEARCH  reports  National 
Bureau  of  Standards  research  and  development  in 
physics,  mathematics,  chemistry,  and  engineering. 
Comprehensive  scientific  papers  give  complete  details 
of  the  work,  including  laboratory  data,  experimental 
procedures,  and  theoretical  and  mathematical  analy- 
ses. Illustrated  with  photographs,  drawings,  and 
charts. 

Published  in  three  sections , available  separately: 

• Physics  and  Chemistry 

Papers  of  interest  primarily  to  scientists  working  in 
these  fields.  This  section  covers  a broad  range  of 
physical  and  chemical  research,  with  major  emphasis 
on  standards  of  physical  measurement,  fundamental 
constants,  and  properties  of  matter.  Issued  six  times 
a year.  Annual  subscription:  Domestic,  $6.00;  for- 
eign, $7.25*. 

• Mathematical  Sciences 

Studies  and  compilations  designed  mainly  for  the 
mathematician  and  theoretical  physicist.  Topics  in 
mathematical  statistics,  theory  of  experiment  design, 
numerical  analysis,  theoretical  physics  and  chemis- 
try, logical  design  and  programming  of  computers 
and  computer  systems.  Short  numerical  tables. 
Issued  quarterly.  Annual  subscription:  Domestic, 
$2.25;  foreign,  $2.75*. 

• Engineering  and  Instrumentation 

Reporting  results  of  interest  chiefly  to  the  engineer 
and  the  applied  scientist.  This  section  includes  many 
of  the  new  developments  in  instrumentation  resulting 
from  the  Bureau’s  work  in  physical  measurement, 
data  processing,  and  development  of  test  methods. 
It  will  also  cover  some  of  the  work  in  acoustics, 
applied  mechanics,  building  research,  and  cryogenic 
engineering.  Issued  quarterly.  Annual  subscription: 
Domestic,  $2.75;  foreign,  $3.50*. 

TECHNICAL  NEWS  BULLETIN 

The  best  single  source  of  information  concerning 
the  Bureau’s  research,  developmental,  cooperative 
and  publication  activities,  this  monthly  publication 
is  designed  for  the  industry-oriented  individual  whose 
daily  work  involves  intimate  contact  with  science 
and  technology — for  engineers , chemists , physicists , 
research  managers,  product-development  managers,  and 
company  executives.  Annual  subscription:  Domestic, 
$3.00;  foreign,  $4.00*. 

•Difference  in  price  is  due  to  extra  cost  of  foreign  mailing. 

Order  NBS  publications  from: 


NONPERIODICALS 

Applied  Mathematics  Series.  Mathematical 
tables,  manuals,  and  studies. 

Building  Science  Series.  Research  results,  test 
methods,  and  performance  criteria  of  building  ma- 
terials, components,  systems,  and  structures. 

Handbooks.  Recommended  codes  of  engineering 
and  industrial  practice  (including  safety  codes)  de- 
veloped in  cooperation  with  interested  industries, 
professional  organizations,  and  regulatory  bodies. 

Special  Publications.  Proceedings  of  NBS  con- 
ferences, bibliographies,  annual  reports,  wall  charts, 
pamphlets,  etc. 

Monographs.  Major  contributions  to  the  techni- 
cal literature  on  various  subjects  related  to  the 
Bureau’s  scientific  and  technical  activities. 

National  Standard  Reference  Data  Series. 

NSRDS  provides  quantitative  data  on  the  physical 
and  chemical  properties  of  materials,  compiled  from 
the  world’s  literature  and  critically  evaluated. 

Product  Standards.  Provide  requirements  for 
sizes,  types,  quality  and  methods  for  testing  various 
industrial  products.  These  standards  are  developed 
cooperatively  with  interested  Government  and  in- 
dustry ' groups  and  provide  the  basis  for  common 
understanding  of  product  characteristics  for  both 
buyers  and  sellers.  Their  use  is  voluntary. 

Technical  Notes.  This  series  consists  of  com- 
munications and  reports  (covering  both  other  agency 
and  NBS-sponsored  work)  of  limited  or  transitory 
interest. 

Federal  Information  Processing  Standards 
Publications.  This  series  is  the  official  publication 
within  the  Federal  Government  for  information  on 
standards  adopted  and  promulgated  under  the  Pub- 
lic Law  89-306,  and  Bureau  of  the  Budget  Circular 
A-86  entitled,  Standardization  of  Data  Elements 
and  Codes  in  Data  Systems. 


CLEARINGHOUSE 

The  Clearinghouse  for  Federal  Scientific  and 
Technical  Information,  operated  by  NBS,  supplies 
unclassified  information  related  to  Government- 
generated science  and  technology  in  defense,  space, 
atomic  energy,  and  other  national  programs.  For 
further  information  on  Clearinghouse  services,  write: 

Clearinghouse 

U.S.  Department  of  Commerce 

Springfield,  Virginia  .22151 


Superintendent  of  Documents 
Government  Printing  Office 
Washington,  D.C.  20402 


